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FIRST BITE OF THE APPLE III 


% million people 
made their first 
computer 
purchase 
from us. 


We are ComputerLand, the number 
one retailer of small computers in 
the world. 


Why did so many people join the 
ComputerLand team? Because, like 
you, they wanted to buy their first 
Computer from a specialist; from 
someone who cared about their 
satisfaction. 


We at ComputerLand carry the widest 


selection of small computer equipment 


available in Australia. 


Adelaide — _ 131PIRIESTREET PHONE 2235083 
Brisbane —= 27 CREEK SIREET PHONE 2219777 
Melbourne — 555 COLLINS STREET PHONE 625581 

Perth == 7197S). GEORGES TERRACE PHONE 321 -46/1 


Sydney — So CLARENCE SIREET PHONE 2937535 


© CLA Sydney July 1980 


Micro-computers, printers, V.D.U/s, 
synthesisers and software, all at prices 
you can afford too. 


Our courteous sales and service staff 
Can configure a computer system to 
your specifications, and in many Cases 
deliver it to you that same day. 


So, don't limit your options. Come to 
ComputerLand today and join the 
number one team. We're expanding 
the way your world thinks. 
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Ready for business. 


CBM Business Computer System. 


From the truly bewildering torrent of superlatives, claims, promises and 
come ons in the computer marketplace, how do you choose a microcomputer that’s 
right for you? . 

Four things determine the suitability of a microcomputer: Hardware, 
Software, Service and Price. 

At Hanimex we've got it all together with Commodore Business Machines: 
L] All components and equipment are designed and manufactured by 

Commodore ensuring total System compatability. Every CBM System is tested 
prior to installation to guarantee maximum reliability from the day you plug 
it in. 

[] An array of software programmes is available for business and other 
applications including General Ledger, Creditors, Debtors and Word 
Processing. 

However, if you require additional or specialised programmes these can be 
produced easily and inexpensively because of the advanced software tools 
built into CBM Systems. 

|] Hanimex and your Commodore Dealer have a serious commitment to service. 
Thanks to modular design and Self-Diagnostics, problems can be identified 
and remedied quickly and complete customer maintenance service is 
available. 

L} And when you finally get down to the price you will find that the Commodore 
Business System is more computer for less money. And a computer that will 
pay for itself faster. 

J Along with Commodore, we at Hanimex are planning for the future needs of 
the business and professional worlds. Our main customer is the small 
businessman, but professional programmers, engineers and others are also 
finding our products invaluable. 

(| We are proud to offer this high quality product at an incredibly low price and 
CBM Systems are available for immediate delivery from the nationwide 


network of Commodore Dealers. 
Distributed by 


C= commodore’ BHANIMEXx 


Commodore Business Machines [ivision. 
Ph: (02) 9380275 HANIIX 80 
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Computer ~ 
works 


June saw the opening of the 
community-based resource 
project in Crows Nest, NSW. 
It is to be a place where 
kids and students can get to 
know computers; and as a 
resource base for commun- 
ity awareness and use of 
computers. 

It will be open after 
school, Tuesday to Friday, 
and at weekends. The foll- 
owing services will be 
included: micros for kids, 

a resource library, software 
libraries and exchanges for 
most micros, program devel- 
opment tools, and user or- 
iented development projects 
in systems software, edu- 
cational software, and net- 
working. There will also be 
an information and resource 


distribution network to support 


microcomputers in NSW 
schools. 

Students and teachers can 
obtain Computerworks res- 


ources for use in their schools 


and individuals can become 
supporting users for the 
trivial subscription of $20. 
This really is an exciting 
project and, needless to say 
being community based, the 


more support it gets the more 


valuable it becomes. So get 


out your chequebook if you’re 


an individual (or do what- 


ever you have to do if you’re a 


non-individual)and direct 
pha neti or subscriptions 
to Computerworks, Box 
3143, GPO Sydney, 2001. 


Down south 


It’s good to see advice 
becoming available for non- 
professional computer users 
who, with a little help 
(biased or otherwise) from 
their friendly dealer and 
from the printed word (to 
which you can’t direct quest- 
ions), are trying to get 
some grasp of the area. 

Dr Jon Patrick, of the 
Prahran CAE, will be avail- 
able for anyone who has 
queries about his/her micro. 


The Data Processing Dept. 


of Prahran CAE has been in- 
volved with microcomput- 
ers for nearly two years, and 
is now setting up a Centre 
for Microcomputer Appli- 
cations. The department 

has a Z—1 Cromemco 

which is used in its aca- 
demic programs. Its current 


configuration is 30K mem- 
ory partitioned for two users 
and dual 5” disc drives. It 


will shortly be expanded with 


the addition of two 8” disc 
drives. 

The Data Processing 
Department is part of the 
School of Business and, as 
well as running its own 
courses, is geared to support- 
ing other departments, not- 
ab y Accounting. 

ecause of this, the 

department is strongly user 
oriented and has purchased 
commercial software to en- 
hance its support of other 
departments; and it is setting 
up a databank of benchmark 
programs and test results for 


the testing and comparison of 


micros. 


Staff at the college will 
give advice to the general 
public on the use or acquis- 
ition of micros, and will act 
as consultants if requested. 

Enquiries to Dr Patrick 
at the Department of Data 
Processing, Prahran CAE, 
142 High Street, Prahran, 
Vic. 3181. 


Micropros & 
Cons 


MicroPro Design will start 
trading in the Cormiodore 
CBM and Pet microcom- 
puters from the Ist of July. 
Their technical staff will 
be offering support in cus- 
tom interfacing and appli- 
cations software. They ve 
already developed some 
interfaces for the Com- 


modore IEEE488 Bus, which 


is manufactured locally. 
Also new at MicroPro is 
the latest in the MicroCon 
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series. The economical micro- 
processor/controller has been 
in production for two years 
and the latest is the Micro- 
Con/OEM (MC 1/OEM). 

It is a6” by 4.5” 
printed circuit board which 
uses the 6505 microprocessor, 
with a 1K byte monitor 
in EPROM and 1K bytes of 
Read/Write RAM with pro- 
vision for the addition of an 
extra 1K of ROM or RAM. 

Also provided are eight 
bit TTL level input and out- 
put ports, and a serial RS232 
interface, for use with the 
monitor program or for 
general purpose communi- 
cations. Enquiries to Micro- 
Pro Design, PO Box 153, 
Nth. Sydney, 2060. 


Disc fora 
Dec 


ADE has introduced a new 
double-sided, double- 
density DEC- RX02—com- 
patible flexible disc memory 
system. Called the DSD 470, 
it reads and writes on both 
sides of eight-inch diskettes 
with a formatted capacity of 
one megabyte per diskette, 
or two megabytes of on-line 
storage. 

According to Bill Ander- 
son, of ADE, the DSD 470 
provides the user with LSI- 
11/23 multiple level interrupt 
support, conforming to DEC’s 
announced standard interrupt 
structure for all future peri- 
pherals. 

The 470 has onboard diag- 
nostics — a series of micro- 
programmed user-selectable 
routines which verify proper 
operation of the system, debug 
to the chip level, provide 
detailed status reports and 
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ADE’s new DEC RX02 Disc Unit. 
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generally prevent you making 
a mess of things. 

It’s small — the chassis is 
just 5% inches — and (if the 
editor can be prevailed upon 
to print the picture large 
enough) it is interesting to 
see exactly how it’s put to- 
gether. 

Contact Mr. H. Logie, the 
National Sales Manager, at 
Anderson Digital Equipment 
P/L, 1 Expo Court, Mt 
Waverley, Vic. 3149; Tel: 
(03) 543 2077. 


Telex talk 


ADE has a new product 
combination, Teletaper and 
Telepunch, which prepares 
telex tape. 

The message is prepared 
on the Teletaper’s keyboard, 
displayed on a video screen, 
and then the unit’s word 
processing capability can be 
used. 

Once prepared the 
message is transterred elec- 
tronically to the Telepunch. 
The tape is prepared off-line 
which frees the telex machine 
to send and receive more 
messages. 

The Teletaper stores up 
to 32K of memory (16 

ages), mae recall of 

requently used messages, 
while the word processing 
allows insertion of updated 
information. 

It will cost around 
$5,000 and the operator 
nee bhi | requires no telex 
training. Contact Anderson 
Digital Equipment P/L at 
P:O. Box 322, Mt. Waverley, 
Tel: (03) 543 2077 or P.O. 
Box 341, Pennant Hills, 
Tel: (02) 848 8533. 
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Hot off the 
press 


A new book called Micro- 
processor Software Design, 
has been published over- 


seas. 

Edited by Max. J. 
Schindler, of Electronic 
Design magazine, it is a 
compilation of articles 
from that magazine and deals 
with application software 
from top-down design and 
operating system specifi- 
cations to features of high- 
level languages such as 
Pascal and BASIC. 

It hasn’t been released yet, 
so enquiries to the Hayden 
Book Company, 50 Essex St., 
Rochelle Park, New Jersey, 
07662; Tel: (203) 843 0550. 


Pascalising 
Pet 


The fact that APC is not 
written in French doesn’t 
mean that French isn’t quite a 
nice language (in its ee 
Rather it reflects the fact that 
most of the Frenchmen in 
Australia who want to read 
about computers can manage 
in English. The fact that there 
is going to be a version of the 


programming language Pascal for 


the Pet microcomputer does 
not prove that Pascal is much 
more than quite a nice lang- 
uage; instead it dictates that 
there are alot of people who 
have learned Pascal, and find 
that the Pet’s memory limit 
of 32K bytes prevents them 
from using their skill. 
Getting a Pascal compiler 
into Pet isn’t just a question 
of writing a ele ram which 
will run on the Pet and 
translate Pascal instructions 
into strings of 6502 code. 
There’s also the small prob- 
lem of getting the program 


to fit inside 32K bytes, leaving 


enough room for it to 
write the 6502 code it gen- 
erates. 

The British micro-kit 
builder Transam has proved 
that its abilities lie beyond 
simple computer ge by 
achieving that feat. That 
company has covered itself 
in further glory by winning 
the contract to get Pascal 
onto Pet — from the Pet’s 
builder, Commodore, in 
the USA. 


The new compiler, 
called TCL Pascal, sells for 
acomfortable £120 on 
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diskette, eee with a 
large manual. They can be 
called, in London, on 
(01) 402 8137. 


Super Pet 


Despite Commodore UK’s 
secretive attitude (the 
machine was launched at 
Hanover but the British 
press was banned from even 
seeing it until the official 
launch on the 14th of June), 
our London friends have 
managed to prise the foll- 
owing details of the new 
80-column Pet from their 
reluctant grasp. 

The green screen is a 
bumper 12 inches across 
instead of the usual nine, 
and the keyboard has been 
lowered to keep the over- 
all height increase down to 
one inch. 

As you can see from look- 
ing at the keyboard, the 
machine is totally business 
oriented: new features 
include repeat, tab, and 
ESC keys with auto repeat 
on the cursor controls. The 
25 by 80 screen can be 
scrolled up or down and 
there are facilities for in- 
serting and deleting lines 
and for defining “windows” 
on the screen. The mach- 
ine, officially known as the 
8032, has an 18K BASIC 
in ROM which includes 
disc operators. 

Look out for a full 
Benchtest in APC soon. 


The Sord is 


mightier than 
the pen 


A lesser known computer 
in the field of business and 
ersonal computing is the 
ord. Distributed by Mitsui 
& Co. in Australia, it is 
available from the Small 

Business Company in 

dney. 

The M200 series are 
their micros. At the top of 
the line is the M223 MK 
V1 business system. This 
has 8.4 MB formatted) 
Winchester Technology 
hard disc. single TEAC 350 
K mini disc drive, CRT 
keyboard and 64K memory. 

It is designed around the 
S100 bus and the back plane 
has four slots — one for the 
hard disc controller, one for 


the floppy disc controller, 
and two free for future 
expansion. 

Built-in options include 
the keyboard which has 
ASCII characters for input, 
including graphic charac- 
ters and a numeric keypad 
plus special function or 
state keys. These keys 

ow the operator to set 
up special repetitive func- 
tions, then leave the machine 
alone to do the work. 

The CRT provides the 
ability of up to 1920 char- 
acters in an 80-character by 
24-line display. Graphics 
include moving and revers- 
ible characters. 

The built-in mini discs 
give 350K of user storage 
per disc. Two RS232 ports 
are switch controlled from 
the front panel. The ports 
can be configured indep- 
endently for separate baud 
rates by two DIP switches 
located on the main board; 
and the B channel can be 
used with an acoustic coupler 
to communicate with 
another system. 

The Sord operating 
system can control up to 
four disc drives — either as 
part of the built-in drives or 
as add ons. With the oper- 
ating system comes Sord 
Extended BASIC, which also 
is available as a compiler 
version. Other languages are 
also available. 

The ACE personal com- 
puter-offers similar features 
to those of the M200 series 
but in a lower price range. 

S.B.C. are themselves 
very interested in software 
development; and, apart 
from their own software 
development group, have 
set up contracts with outside 
software firms for the devel- 
opment of applications soft- 
ware for the Sord computer. 
puter. 

Because they’re now 
seriously going after the 
business market, S.B.C. are 
interested to hear from 
businessmen about their 
particular application needs. 
There are currently 35 soft- 
ware packages available 
ranging from Real Estate to 
Medical Practitioners, and 
come with documentation to 
guide the learner-user. 

Sord systems are offered 


in a number of configurations, 


depending on needs. The 
prices vary according to sys- 
tem and size and type of 
printer and software. The 
basic M203 MKII Business 
System, with printer and 
software sells for $13,500. 


Contact Small Business 
Computer Company at 200 
Pacific Hwy, Crows Nest, 
2065; Tel: (02) 929 7699. 


Ohio level 
languages 


In about a month you'll be 
able to get Fortran and 
Pascal for any disc-based 
Ohio system. It has already 
been released in the US by 
Ohio Scientific TCG. The 
minimum requirement is 
48K of RAM, and 

they are expected to cost 
$600 in Australia. 


Data 80 


It all started in 1977 when 
the ACS and a couple of 
overnment bodies got 
ataday together to provide 
average business people 
with information on their 
EDP requirements. 

In 1979, Dataday became 
Dataweek; and this year it’s 
being advertised to the gen- 
eral public. Data 80 includes 
a wide range of small bus- 
iness equipment exhibits, 
and a seminar series designed 
to provide the novice with bas- 
ic information and the expert 
with a run down on latest 
developments. 

Data 80 will be at Centre- 
point in Sydney on August 
5,6, 7; and at the Oberoi 
Hotel in Adelaide on Novem- 
ber 12, 13. Melbournians 
who haven’t seen it already, 
have missed it! 

Information from Graphics 
Directions Pty Ltd on Sydney 
) 212 4199. Ask for Miss 

ana Pearce. 


Hang in there 


We’ve had enquiries from 
readers about the availability 
of Microsoft’s BASIC com- 

iler and the Apparat 

ewDos 80. 

A couple of phone calls 

to the US revealed that 
some program bugs still need 
ironing out. So in spite of 
the extensive advertising, 
they’re unavailable as yet. 
Shouldn’t be longnow... 


Watch future issues for 
details of APC’s tour to 
the 6th West Coast Com- 
puter Faire. 


YANKEE DOODLES 


Tom Williams, Editor-in-Chief of California’s Info World, helps APC circumvent the Apple III 
information embargo by jetting over this up-to-the-minute report. 


Myopia may not be an in- 
curable condition, but it 
sometimes seems to require 
radical therapy. I give you the 
example of microcomputer 
manufacturers who are con- 
vinced that they have 
achieved the world’s greatest 
hardware design. The fact 
that this design is different 
than anything else in 
existence is claimed to be one 
of the product’s greatest 
assets, and well it may be 
from the standpoint of pure 
technological excellence. 
But when it comes to selling 
computers and providing the 
user community with products 
that are both useful and 
versatile, there are other 
considerations, considerations 
that require a little ‘letting 
go’ on the part of manu- 
facturers. 

It is a truism that the 
S100 bus is not the most 
refined design for micros. It’s 
also true that, since S100 is. 
not the proprietary design of 
any one company, there is 
more hardware and software 
available for it than for any 
other micro bus. This is not 
meant as a promotion for 
S100, but as an example of a 
phenomenon that was going 
on before everyone’s eyes, 
and was misperceived by 
many to their detriment. 

The example is that a 
major product which has 
been the result of much in- 
vestment and design work 
can positively benefit from 
the existence of cottage 
industries. That seems so 
obvious that it’s hardly 
worth saying. Whe 
Heathkit first announced 
the H-8 computer, they felt 
that a new cottage industry 
would spring up around 
their new Benton Harbor bus 
the way it had around the 
S100, ee because their 
new bus really was a design 
improvement over S100. 
That didn’t happen, partly 
because there was not 
enough volume of Heath 
computers in the beginning 
also because the memory 
arrangements of the H-8 
presented additional problems 
to software designers. 

As a counter example, 
Radio Shack was able to 
make a success of the TRS- 
80 because they had a large 
volume of the machines 
available at startup, and 
because the TRS-80 was 
complete in that it required 
no expansion or configur- 
ation decisions on the part 
of the buyer before it could 
be used. Radio Shack has 
apparently resented the 
existence of independent 
manufacturers of peripherals 
for the TRS-80 and is 
rumoured to be designing 


custom-made chips into 

its new TRS-80/Color (or 
TRS-90) which will prevent 
the easy interfacing of non 
Radio-Shack devices to the 
machine. If that rumour is 
true, it’s probably the biggest 
mistake Tandy could make. 

Still more foolish are those 
companies who base the main 
software support for their 
machines on ROM cartridges. 
At first, this seemed like a 
novel approach. The first 
consumer computer to offer 
such a thing was the Video 
Brain by Umtech. You 
haven’t heard much about 
the Video Brain of late, and 
there’s a reason... it’s no 
longer made. 

It’s one thing to provide 
the main system software in 
ROM - Exidy was the first to 
offer cartridges, but only 
for the language like BASIC 
or assembler — but it’s quite 
something else to expect 
that all the applications 
programs will be provided in 
ROM packages as well. Not 
even the largest manu- 
facturer can afford the 
human resources necessary 
to create the volume and 
variety of useful software 
demanded by users. And if 
there has been any lesson 
learned these past three 
years it is that software is 
what makes a computer 
valuable. Thus the only 
alternative is to make it 
easy for independent authors 
to write programs for the 
machine. 

This cannot be done for 
ROM-based applications, 
because each author would 
need a development system 
for the computer in question, 
and that costs around 
$25,000. Texas Instruments 
and Atari have hedged a bit 
on this because they 
originally planned to have 
most Bera ee programs 
on ROM. They’ve since 
come out with tape and 
diskette systems, but not 
the ROM. They seem unsure 
of their identity and have 
not attracted independent 
software vendors, and 
may be in trouble. The 
Texas Instruments machine 
is definitely in trouble and 
TI engineers who worked on 
the 99/4 project are said to 
be circulating their resumes 
because, currently, TI 
doesn’t have anything in the 
works in the way of a 
personal computer. 

There is evidence that the 
smarter companies are 
coming around to the 
realization that it’s not only 
in their interest to allow 
ancillary entrepreneurs to 
produce both hardware and 
software products for their 
machines, it’s also in their 


interest to aid them in doing 
so. When unveiling its new 
Apple III system, Apple said 
that it would be holding 
seminars for qualified 
independent hardware and 
software producers who 
wished to market products 
for the Apple III. Given this 
attitude and the very positive 
features of the Apple III, I 
predict Apple will have much 
success with this product. 

Speaking of the Apple III, 
although as of the time of 
writing it had yet to be 
officially unveiled (its only 
airing prior to your reading 
this having been at the 
National Computer Con- 
ference in Anaheim). I 
recently got an advance 
peek at the machine and was 
quite impressed. 

The Apple III has a CPU 
that’s built around the 6502A 
with several other chips such 
that it executes a superset of 
the 6502 instructions. It also 
features relocatable base page 
register, relocatable stack, an 
and 128Kbyte address space. 
The basic machine comes 
with 96Kof RAM and is 
expandable to 128K. 

The Apple III is supplied 
with a built in 5%-inch disc 
drive, and 12-inch black -and- 
white monitor. Apple will be 
offering it as a complete 
‘problem solving’ system. 
The first two such config- 
urations to be offered will be 
a word processor and an 
‘information analyst’. The 
word processor will come 
with a second disc drive, a 
printer (there are several 
options), and word pro- 
cessing software. The 
information analyst will come 
with the single drive and Visi- 
calc III, as well as a mail list 
manager and Apple business 
BASIC 

The most impressive thing 
about the Apple III is the 
software orientation of its 
design. The display, which is 
now 80 characters by 24 
rows, can be selected for any 
of 16 combinations of 
foreground and background 
colours. The character 
generator is in RAM, and is 
loaded when the operating 
system boots. This means 
that the entire set of 128 
characters and symbols can 
be configured in software. A 
lookup table defines which 
letter, number, or symbol 
will be specified as each 
keyboard code comes in. 
Thus, any character set- 
Arabic, Greek, Japanese, 
Cyrillic, etc. — can be 
defined in software. 

The software definable 
character set is also very 
useful in word processing 
operations. I saw some of the 
WP software under develop- 


ment and various type fonts 
were being displayed on 

the screen ... medium, 

italic, boldface, etc. These, 
along with proportional 
spacing, corresponded exactly 
to what would appear on the 
printed page. 

I/O is likewise very 
software oriented. Apple has 
written a large number of 
device drivers for most 
popular peripherals. When 
the system is configured, 
the user simply assigns a 
peripheral to a certain slot 
and assigns the proper device 
driver to it. Thus, whenever 
that device is called, the 
operating system takes care 
of slot and driver; the user 
simply says what peripheral 
to use. 

Apple is also building in a 
battery-powered clock/ 
calendar that it says will run 
continuously for three years. 
It’s said to be accurate to 
one millisecond, and will 
keep track of year, day, 
month and time of day. 

One other nemesis of 
Apple users has been cured: 
the reset button has been 
placed on the rear edge of the 
keyboard, and the control 
key must be pressed simult- 
aneously to reset the machine. 
In addition, Apple has pro- 
vided an Apple II emulation 
software package, which, 
when loaded into the Apple 
III makes it look exactly like 
an Apple II in terms of soft- 
ware and I/O. Thus, all the 
existing Apple II software 
ty now be run on the Apple 

Delivery of Apple III 
systems is scheduled to begin 
in late July or early August 
with the Information Analyst 
priced at about $4,400. The 
next will be the word pro- 
cessor around September, 
which will be priced at $5,400 
to $7,800 depending on the 
type of printer chosen. 
Technical specifications 
CPU 2 MHz 6502-based 

with extended ad- 

dressing 
Memory 96-128K bytes 
dynamic RAM, 4K 
ROM 
1-4 minis, 143 
kbytes/ disc 
Text: 40x24 b&w, 
80x24 b&w, 40x24 
in 16 colours, user 
definable characters; 
Graphics: 280x192 
in six colours, 140x 
192 in 16 colours, 
560 x 192 b&w 
NTSC b&w or 
colour, RGB 
Integral 2 inch 
speaker, six-bit DAC, 
one-bit square wave, 
‘beep’ 
RS232, two joy- 
sticks, printer output 
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DEFOREST SOFTWARE 


GAMES 


Sargon 2 — The ultimate Chess Game for any 


Backgammon/Keno — 2 great gambling games from 


Microcomputer 16K Level2............-. $37.50 instant software... . 2.2.0. 00 2+ eee eee $10.00 
Microchess — Level 1 or 2 TRS-80. Plays an entertaining Bandito — Your TRS-80 a slot machine with great 
game 3 levels fitsin 4K... .......00008 | $24.00 soand effects 6 ccc ee cece bet eee a are te $12.50 


Golf & Crossout — New improved version, good graphics. 

You can even design your own championship course. $10 
Santa Paravia — up to 12 can play, become the king of 

a medevil city, levee taxes. .......-2+0055 $10.00 
Game Playing with Basic — 3 tapes 1, 2 & 3 based on the 

book of the same name great for learning . . . $12.50 ea. 


Star Trek — Acorn a space adventure on your TRS-80. $12.50 
Stock Market — Invest in safe stocks or high risk 

specs. will you take the risk $12.50 
Original Adventure — requires 32K & disc from Microsoft. $35 
Monolopy — Play that famous game against the TRS-80. . $10 
Time Trek — with sound, another of the ‘classics’ for 


Oil Tycoon — 2 players, explore, drill for oil, outprice the the TRS-80 real time excellent programme .... $21.00 
opposition, force him into bankruptcy. ...... 10.00 Galactic Empire — a space game with a difference, 

Space Trek IV — population simulation, trade or wage war many hours enjoyment with this one. ....... $16.00 
send missions to space, can you survive?...... $10.00 Light Pen — games & instructional program includes 

Checker King — not just an ordinary checker game but a game frogs (Light Pen included) .......... $10.00 
fast expert machine language challenge. ..... . $27.00 Space Battles — requires 32K 1disc ........... $15.00 

Flight — Control your own aircraft, very realistic, good Games 20 — only 75 cents per program on disk $15.00 
flying simulation and very challenging. ...... $10.00 Pinball — the greatest game that | have ever seen for 

Airmail Pilot — an entertaining game can you get the the TRS-80, fast action movable flippers and great 
mail through in your 1927 Biplane, watch for sound. Machine language, maintains high score Disk. $20 
lightening, windstorms, fuel shortages etc... . . . $10.00 Tape. $16 


Adventures — what more can be said! The most challenging 


Super Space Invaders with Sound — nothing like the 


simulation/game/adventure ever Nos. 0 to9. . ea. $16.00 normal invaders extra fast. Spray bullets like out 
1onDisc..... $19.00 of a hosepipe, not only does the enemy move side- 
2onDisc..... $32.00 ways but they also advance ...........-. Disk $20 
3onDisc..... $39.00 Tape $16 


Lying Chimps with Sound — a very interesting program . . $10 


COMPUTER BOOKS 


Basic Basic ......- ee ee ee ee ee te ee es $11.00 Programming Proverbs. .....--++22+ eee $9.50 
Advanced Basic. .......--++2 e+e ee ee eee ees $11.00 Fortran Fundamentals... ....-.. +00 eee ee $6.50 
Basic from the Groundup...... +22 +e eee eee eee $11.00 Fortran 4 Programming .....-- 2 ++ ee ee ae $9.00 
Basic Work-book .......-02+ 088s eee eee eee $7.50 Microcomputer System Design ........-.--: . $21.00 
Discovering Basic... 1... eee eee ee te es $8.50 Microprocessor Data Manual ..........++. $10.00 
Common Basic Programs ....--+-+2+ see eee eee $12.50 Microprocessor Basics .....-- +2 eee ee8s $16.00 
Sargon Chess ...--- 00 e2 ce ee eer re eteneeee $19.00 S-100 Handbook ........-.-2.-e8 8808820 $10.00 
How to Build a computer controlled Robot ........-.- $15.00 Digital experiments ......-.0+28eeee8 $11.00 
How to profit from your personal computer ........-- $11.00 Digital Trouble Shooting ...... eee $12.50 
An Introduction to MicroprocessorsO......-+..+++6-: $11.75 Telephone Accessories ......-.++++s eee $7.50 
” oF ne ee ewe se eee ee $12.50 More telephone accessories .....---+++-+5. $7.50 
Z80 Programming for Logic Design ...--- +--+ +++ $12.50 Legical Design Using IC’s .....---- ++ ees $24.50 
Z80 Assembly Lanquage Programming. ......-+++++: $13.60 Statistical Pattern recognition ......-.-++.. $21.50 
Pay Roll & Cost Accounting* (Software to match $99) . . . $20.00 Fundamentals of Data Base Systems. ....... $21.00 
Account Payable & Receivable* (Software to match $99) . $20.00 40C Ideas for Design Vo!2 .......-2-26. $18.00 
General Ledger* (Software to match $99) .......... $20.00 Volo sou cee ee eee s $18.50 
6502 Assembly Language Programming ......--+-+ +++: $13.60 Vol4 .....ccc ec eee $17.50 
The 6800 Microprocessor .... 2-2-0 +22 eee ee eee $11.00 Integrity & recovery in Computer Systems .... $12.50 
Basic Microprocessors & the 6800 ......----+ 202: $16.00 Management of Information Systems ....... $11.00 
Computer Mathematics ......-- 2+ see eee ee eee $16.00 File Structure for On-Line Core Systems ..... $18.50 
Consumers guide to personal computing & Microprocessors $11.00 Data Management for On-Line Core Systems .. . $18.50 
Mini Computers, structure & programming .......+.-- $18.00 Digital Signal Analysis .........2...22+-. $27.00 
Fundamentals & Applications of Digitallogic circuits ... . $13.00 Computer Security Risk Analysis ......... $16.00 
Small Computer systems Handbook .........++++-: $11.50 Character readers & Pattern recognition. ..... $17.50 
The first book of Microcomputers .... 2.2.6.8 eee eee $6.50 Modern Electronics Security Systems ....... $16.00 
Computers in Society .. 1... 6 ee ee et et ee es $9.50 Printed Circuit Assembly .......-2.+e8+8082- $6.50 
Computers in Action. . 2... ee ee ee ee $7.00 Basic Mathematics Vol1 .......-2-e+2e+e0: $8.50 
Standard Dictionary of Computers. .....--+++e0+. $25.00 Vol2 ... cece eee eee ee $8.50 
Programming Programmable calculators. ...-..-.-+-.+-- $13.50 Mathematics for Electronics ..........-.-. $9.50 
110 Basic Computer Programs .... 2... + see eee eens $8.00 Human Communication Handbook Vol1..... $12.00 
Cobol with style .. 0... eee ee es $9.50 Wot 2 oes «- $12.00 
Basic with style... 0. 2 ee $8.00 Computer Dynamics .......---0-0+0+808-% $13.00 
Fortran with style . 2... 6 ee ee te ee ee ee ee $9.50 Computer Aided Design Techniques ........ $32.00 
Pascal with stvld ... 6 2 de Ree ee $8.50 Electronic Game Projects ......-.-++-28+.. $6.00 

TRS80 Disk and other Mysteries ‘‘Pennington” . $25.00 


Just ring with your 
Bankcard Number and 
Expiry Date and we 
will immediately 
forward goods. 


POSTAGE IS INCLUDED AT NO CHARGE, HOWEVER WE 
SUGGEST REGISTRATION OR CERTIFICATION. 


26 STATION STREET, NUNAWADING, VIC. AUSTRALIA 
Tel: (03) 877 6946, 878 9276 


welcome here 


TRS-80 MODEL II 


The TRS-80 Model IT is an attractively packaged integrated unit with a detachable keyboard 
and the sort of features that one would expect from a machine with a $5000 plus price tag. How has 
Tandy survived the move upmarket. . .? Stephen Withers (conducting his first Benchtest) reports. 


The TRS-80 Model II .. . “functional and well designed”’. 


The heart of the TRS-80 Model II 
system is a Z80A processor running at 
4MHz. In order to minimise the load on 
the CPU, LSI controller chips are used to 
take care of the keyboard, video dis- 
play, and disc drives. 
he tested system contained 64K 
of ene and a single 8” Shugart 
disc drive. Up to three additional drives 
may be connected, each drive having a 
oss capacity of 497.25K (only 
06.25K is available on Drive 0, as it 
contains the system disc). The Model II 
is also available with 32K of memory — 
if this option is selected it’s possible to 
upgrade to 64K with one extra card. No 
other internal add-ons are available at 
present. 
The Model II is not among the quiet- 


est of systems I’ve used. This is partly 
due to the cooling fan (I don’t foresee 
overheating problems); the fact that the 
disc drive is PenNanGA GY spinning also 
contributes to the noise. In addition this 
is likely to reduce the life of the media. 

Two. RS-232 ports are provided. 
These operate at die usual Baud rates, 
between 110 and 4800. Speed, word 
length, number of stop bits, and parity 
are all software selectable and this is 
much better than having to mess around 
with a or switches. One channel 
may be operated in the less commonly 
used synchronous mode. A Centronics- 
compatible para printer interface is 
also standard. 

The display shows a full 24 rows of 
80 characters, and is clear and crisp. 


Contrast and brightness controls are 
fitted to the front of the casing, neatl 
hidden in the keybeard recess. The full 
set of printing ASCII characters are 
available (lower case characters have 
true descenders), and there’s also a set 
of 32 rather strange graphics characters. 
I can’t see these being used much, espe- 
cially as they are not directly aWaileie 
from the keyboard. All characters may 
be shown in normal or inverse video. 
The keyboard is connected to the 
main unit by a 2 foot long cable that 
terminates in a 5-pin DIN plug. Any 
spare cable tucks into the main cabinet. 
here are 76 keys — the normal 
QWERTY, plus a cursor control cluster, 
two “function” keys, and a number 
pad. Despite what you may have read 
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elsewhere, I believe a numeric pad 
to be very usetul; it has been shown to 
reduce errors when entering numbers. 
A feature I appreciated was the indic- 
ator lights on the “caps” and “‘shift 
lock” keys. 

The keyboard has most of the fea- 
tures one looks for: reasonably good 
“feel” oe feedback), n-key rollover, 
minimal reflection from the keytops, 
and a slim case that can easily be moved 
around the desk, yet is heavy enough to 
stay put while typing. One problem is 
that the “break” key is next to “back- 
space’. Since “break” is used to halt a 
program, missing the “backspace” key 
can be very annoying! Mind you, thou- 
sands of Apple II users have learnt to 
live with a similar problem. 


Software 


When the Model II was first pro- 
duced, it was supplied with a “‘pre- 
release’ version of the system soft- 
ware, which seemed quite good, but 
had a number of weak points. In Aus- 
tralia the Model II uses a revised version. 
Having seen this new release, I’m glad 
to be able to report that almost every 
problem I noted has been fixed — and 
some new features added. Unfort- 
unately this leaves me with less to write 
about! 

Each time the Model II is reset it 
automatically executes an extensive 
diagnostic program which tests the 
disc sub-system, CPU, RAM, ROM, 
DMA controller and the input/output 
chips. If these tests are passed, TRS- 
DOS is loaded and a large Tandy Cor- 
poration logo appears on the screen. 
At this stage the clock and data are 
initialised (unless the system has been 
PATCHed to skip this). If this feature 
is active the procedure is necessary after 
every reset. [t could be argued that the 
action imposes a useful discipline on 
the operator, ensuring that all files are 
correctly dated. 

Within seconds after switching on, 
the magic words “TRSDOS READY” 
appear, and you can get to work. All the 
usual functions of a disc operating sys- 
tem are present, so I'll only point out 
some of the more interesting or unusual 
features. 

One of the first things you notice is 
that files may be alee by pass- 
words — and not only that, there’s pro- 
vision for separate “‘access’” and “up- 
date” words. For example, it may be 
necessary to give a clerk access to a file 
of sensitive information, but undesirable 
to allow him or her to be able to change 
or delete it. The level of access granted 
by the “‘access” word (from “no access”’ 
to “‘full, including KILL’’) is under the 
control of the holder of the “update” 
word. On top of this, each disc is given 
a password, knowledge of which eae 
the alteration of any user file’s pass- 
word and the deletion of any file. 

Turnkey systems may be produced 
by utilising the AUTO command. If 
set, this causes the automatic execution 
of the specified command. This comm- 
and would t a, be “DO MYFILE”’, 
where MYFILE is the name of the file 
containing the TRSDOS commands 
which are to be executed. In this way 
it’s possible to have the system automa- 
tically load BASIC and execute an appli- 
cations program. 
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Although it’s often useful to have a 
time function available, I found the 
clock display in the top right of the 
screen very distracting, and so left it 
switched off. The DATE command 
returns the time, date, day of the week, 
and the information that it is, for exam- 
ple, the 54th day of the year. Rather 
optimistically, Tandy say that this com- 
mand will now work correctly beyond 
2199 A.D. A utility which carries out 
date calculations (e.g. how many days 
between 3rd February 1979 and 28th 
October 19817) is also supplied. 

The DEBUG function is a simple 
machine code monitor. What makes it 
special is that it splits the display, reser- 
ving the top 13 lines for itself, while the 
remainder scrolls normally. While in 
“examine and alter memory” mode, it 
responds to the cursor control keys, 
allowing modifications to be made 
swiftly and easily, in a manner similar to 
the PET’s screen editor. 

Pressing ESCAPE makes the changes 
permanent, or the second function key 
cancels them. DEBUG will also accept 
ee in Intel hex format through either 
RS-232 channel. I was rather surprised 
that a debugger is supplied without an 
assembler, as only the simplest programs 
are likely to be hand assembled. 

In common with many of the com- 
mands, it’s possible to send DEBUG’s 
output to the printer, which may be a 
parallel or serial device. The printer 
driver is part of TRSDOS, and a func- 
tion is provided to set its parameters 
(numbers of lines per page, etc) to suit 
the device. 

Programs are provided to format and 
to core, discs. It’s os to see 
that FORMAT will test for bad sectors 
and mark ay found as unusable, and 
that BACKUP uses all available memory 
as a buffer to speed the copying process 
and to minimise the number of disc 
exchanges necessary in a single drive 
system. 

A utility that is likely to save much 
time and effort is PATCH. This allows 
the operator to modify a disc file (even 
a system file) by specials its name, a 
target string and a replacement string. 
The main use is to correct bugs that 
may be discovered in the system soft- 
ware. It will only be necessary for 
Tandy to publish the two strings, which 
is far more convenient than recalling 
master discs for updating. PATCH is 
currently used to skip the initialisa- 
tion of the date and time when booting 


up. 

One last program that seems worthy 
of mention is the one that allows con- 
nection of the Model II to another com- 
a as a fairly sophisticated terminal. 

he values of the control keys like 
“backspace” may be reassigned to suit 
the host system and information may 
be swapped between memory and disc. 

Primitive functions like “get a charac- 
ter from the keyboard” are named 
Supervisor Calls, or SVC’s (shades of the 
Jolly Giant!). These are documented 
and available to user-written programs 
by loading the accumulator with the 
appropriate SVC number, and then 
executing a RST 8 instruction. Other 
registers may be used to pass parameters. 
The zero flag is always set to indicate 
successful completion of the function. 
If it fails, an error code is generally 
returned in the accumulator. I counted 
47 SVC’s. most of them dealing with 


I/O functions, but some of them com- 
putational. One of the most interesting 
is “PARSER” which is used to split 
the contents of a text buffer into 
fields, with terminating and separating 
characters defined to suit the appli- 
cation. TRSDOS uses this function 
when processing a command line, 
separating the program or command 
name from the parameters, and the 
parameters from each other. The 
manual suggests PARSER would be 
useful as the kernel of a word pro- 
cessor — certainly an application to 
which the Model II would be suited. 

Model II BASIC is licensed from 
Microsoft, and is said to be upwardly 
compatible with the TRS-80 Level 2 
BASIC. Although it’s the most com- 
Deets implementation I have used, 

was surprised to find that it lacks 
matrix operations, WHILE statements, 
PEEK and POKE statements and 
multi-line function definitions. My main. 
complaint is that variable names are 
limited to two characters, making 
intelligible programming difficult. 

The price paid for all these features 
is the size of the program — TRSDOS 
and BASIC together occupy about 26K, 
plus an 834 he buffer for each file 
used by BASIC. Clearly few users will 
be satisfied with a 32K system. 

Real variables may be single or 
double precision, and are stored with up 
to 7 or 17 significant digits respectively. 
The type of a variable may be explic- 
itly defined with a suffix (e.g. A% is an 
integer) or by using the DEFINT, 
DEFSNG, DEFDBL, or DEFSTR state- 
ments (e.g. DEFINT A). These are 
equivalent to FORTRAN IMPLICIT 
statements, where variable names begin- 
ning with the parameters of the state- 
ment default to the specified type. In 
the example all variables starting with 
the letter “‘A”’ would be integers, unless 
explicitly tagged with a suffix. 

The interface between BASIC and 
machine code is well supported. In add- 
ition to 10 USR functions (whose entry 
points are defined within the program — 
no messing about with jump tables), 
there is a powerful function called 
VARPTR. This returns the address of 
numeric variables or the address of the 
pointer to string variables; it’s possible 
to have machine code routines that 
operate directly on BASIC variables 
by passing their addresses as the para- 
meter to the USR function. Machine 
code routines may be loaded into 
high memory by TRSDOS and _ then 
protected when entering BASIC b 
the use of the M parameter (whic 
specifies the highest memory location 
available to BASIC). 

Both random and sequential access 
disc files are supported. Using sequential 
files is straightforward, but I feel that 
random access (Tandy, incidentally, pre- 
fer the term “direct” access) has been 
made unnecessarily clumsy. After open- 
ning the file the program must define 
fields within the associated buffer; 
when a record has been read, variables 
are equated to these fields. To make 
matters worse, numeric values must be 
converted to strings before they can be 
stored on disc. Despite these criticisms, 
random access files work well on the 
Model II, and certainly they are easier 
to use than those on some other systems 
(Commodore, for example). 


Above: The Model II keyboard has a lot going for it (see text) — only problem, 


the “break” key is next to ““backspace’’. 
Below: A tidy array of backplate. 


The disc tests used are based on 
those developed by Sue Eisenbach; 
in fairness I should point out that the 
system was set to verify all disc writes 
(thus slowing things down), but on the 
other hand a virtually empty disc meant 
that the file was held in contiguous 
segments (which has the opposite 
effect). Strings in Model II BASIC have 
maximum length of 255 characters, so 
the tests involve a file of 100 records, 
each containing two fields of 128 
characters. 

Test 1 simply opens a new file and 
immediately closes it. 

Test 2 uses a FOR loop to fill two 
strings (A$ and B$) with 128 ‘“‘A’’s, 
then opens an existing file; the second 
loop writes A$ and B$ into all 100 
records, in ascending order. Lhe tile 
is then closed. Test 3 is similar, but the 
records are written in reverse order. 
This actually ran faster than Test 2 — 
Can anyone suggest why? 

Test 4 opens the file, reads records 
1 to 100, assigning the two fields to 


A$ and B$, and then closes the file. 


Test 5 repeats this process, but reverses 
the order in which the records are read. 
Test 5 was also faster than 4. 

As an afterthought, I wrote a pro- 
gram which read 100 records selected 


at random. Although this involved a 
considerable amount of head move- 


ment, it was only fractionally slower 
than Test 4 or 5. 


a 

Potential 

The Model II is unmistakably aimed at 
the business user. The full sized screen 
and good quality keyboard make it a 
natural for word processing. Since Life- 
boat Associates supply CP/M configured 
for the Model II, as well as a good range 
of compatible software, this and many 


other applications are catered for 
“off the shelf’. 


Tandy offer a very limited selection 
of software for the Model II. I have seen 
their Mailing List package, which seem- 
ed to work well (detailed description 
would be unfair, as | didn’t have a cop 
of the accompanying documentation). 

Users who wish to. stay with 
TRSDOS and BASIC have a very limited 
choice of software at present, although 
the file security aspects might make 
this option attractive. As so many 
other versions of BASIC are Micro- 
soft products, it would not be excess- 
ively difficult to convert existing pro- 


for the 


grams to run on the Model II in order 
to take advantage of its features. 

The Model i is clearly one of the 
new breed of computers; powerful, 
integrated systems without some of the 
“‘sillies” that characterised an earlier 
generation. 

I doubt that many of these compu- 
ters will be sold for domestic or educa- 
tional use, as the Model II’s large disc 
capacity (probably its strongest point) 
is rarely an important factor in these 
environments. 


Expansion 


At present, expansion is limited to the 
addition of extra disc drives, and 
increasing a 32K system to 64K. As 
already stated, the motherboard allows 
for expansion when new devices become 
available (after all, Winchester discs are 
almost mancatory these days .. .). 
In case you feel that this lack of expan- 
sion is a bad point, when you have a 
64K system with almost 2 megabytes of 
disc space, interfaces for printers, 
modems and what-have-you, as well as a 
full sized display and keyboard, what 
more do you want? 
On the software side, Tandy are 
Pearle pe release of a Pascal system 
odel II in the near future. 
and at some stage, an assembler. I also 
heard that Fortran is in the pipeline, 
but as CP/M is available, who reall 
cares? (Yes I know it isn’t the world’s 
best operating system, but it works, 


Benchmarks 


Single Double 
Integer Precision Precision 
BM1 
BM2 
BM3 
BM4 
BM5 
BM6 
BM7 
BM8 


DISC TESTS 


TEST TIME 
3 
39 
38 
20 


19 


(All times to the nearest 
second). 


Prices Inc. sales tax 


TRS80 Model II ‘3 re 
TRS80 Model II (64K 
32K Memory Board 
1 Drive Disc 

2 Drive Expansion 
3 Drive Expansion 


$5,300 
$5,999 
$699 
$1,999 
$2,999 
$3,999 
$599 
$199 


$69.95 


$99.95 
$39.95 


System Desk 

Line Printer Stand 
Cable for Printer II 
Cable for Printer III 
10 Blank Discs 
Model II Manual 
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and makes quality software available 
by i bucketful — that’s enough for 
me!). 


Documentation 


All the documentation for the Model II 
comes in one three ring binder — which 
is nice, because it allows you to keep all 
your manuals together, even when you 
expand the system. (I only mention this 
because Tandy found it necessary to 
point it out in the manual!) 

The description of the hardware 
(with setting-up instructions) is very 
brief, giving no information about 
the various peripheral controllers or 
other components. As the Model II is 
aimed at the business systems market, 
a detailed hardware manual is unlikely 
to be produced. However, there are 
substantial sections on TRSDOS and 
BASIC. 

Although these two manuals were 
both produced on a dot-matrix printer, 
I am assured that they were draft copies 
and all systems will be supplied with 
a ed typeset manuals. They are 
well laid out, giving an overview of the 
system before going onto a detailed des- 
cription of the features. Each item starts 
on a fresh page, with its “syntax’’ and 
use described with the aid of one or 
more examples. Coupled with the index, 
this makes quick reference very easy. 
One exception is the “SYSTEM” com- 
mand in BASIC. The manual points out 
that the TRSDOS “‘high overlays” may 
not be used through this command, but 
it doesn’t list them, or even give a cross- 
reference to the appropriate page of the 
TRSDOS manual. 

As far as quality is concerned, these 
manuals are as good as any I have seen. 
The only problem is that they are in the 
same style as those produced for main- 
frames — that is to say they are concise 
and definitive, but unsuitable for use as 
tutorial material. Indeed, the Model II 
makes this point explicitly, Satine the 
reader to other books available from 
Tandy. Don’t worry ee this only 
affects the programmer (who hopefull 
has some idea of what he/she is about); 
the machine itself is simple to operate. 
Given half-way decent software, it’s well 
within the capabilities of the mythical 
“untrained Dp Parenthetically, all 
the typists I have met are far brighter 
than some advertisers’ copy would have 
you expect. 


Conclusion 


The TRS-80 Model II is an attractive, 
well designed computer. Its hardware 
incorporates all the features I expect 
to see on machines in this price range. 
Software, on the other hand, presents 
a dilemma — whether to stay with 
TRSDOS or to switch to CP/M. The 
first course severely (but temporarily) 
restricts the availability of applications 
programs, unless software from other 
systems is translated into the local dia- 
lect. Using CP/M avoids this difficulty, 
but sacrifices the excellent features of 
TRSDOS. Probably the fairest thing to 
say is that if I wanted a micro for a tra- 
ditional data processing application, 
then the Model II would be on my 
shortlist. 
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TECHNICAL DATA 


CPU: Z80A, 4MHz 

Memory: 64K dynamic RAM, 1K “‘phantom” bootstrap PROM 
Keyboard: 76 keys 

Screen: 12” diagonal, 24 lines x 80 characters 

Cassette: 


N/A 
Disc Drives: One 8’’ double density floppy disc 
Printer: Not included in basic system 
Bus: Non-standard 
Ports: 2 RS-232 serial, 1 Centronics compatible parallel 
System Software: TRSDOS 
Language: BASIC 


Memory map RESERVED WORDS 


GAK Command Statements: 


top area optionally AUTO DELETE EDIT 
protected by TRSDOS KILL LIST LLIST 
LOAD MERGE NEW 
User Area RENUM RUN me 


12x | SYSTEM 


TRSDOS high overlays 


TRSDOS 


10K Program Statements: 
Definition and initialisation 


OK 
CLEAR DATA DEFDBL 
DEFFN DEFINT DEFSNG 
top area optionally 64K DEFSTR DEFUSR DIM 
protected by TRSDOS ERASE RANDOM REM 
RESTORE 
area optionally 
protected by BASIC Assignment: 
LET LSET RSET 
26K 
10K END IF. .THEN. .ELSE 
0K basal GOTO RETURN 
ON..GOTO GOSUB 
FOR. NEXT ON. .GOSUB 
Ata glance 
FIRST IMPRESSIONS maipat/Ourput 
Looks | « INPUT CLOSE 
Setting-Up kkk | PRINT INPUT # 
Ease of Use RRR PRINT USING PRINT + 
HIGH LEVEL LANGUAGES LPRINT USING CLS 
FORTRAN N/A OPEN LPRINTTAB 
COBOL N/A | LINEINPUT FIELD 
PASCAL N/A | PRINT@ LINEINPUT # 
System Software eOe LPRINT PUT 
PACKAGES 
Deb 
Business Available ebugging/error trapping 
Education N/A | CONT ON ERROR GOTO 
Home N/A | ERROR STOP 
PERFORMANCE RESUME NEXT ERR 
Processor. ¥axx | TROFF RESUME 
Discs * KKK ; 
Peripherals N/A | Functions: 
EXPANDABILITY ABS ASC ATN 
Memory KK CDBL CINT COS 
Cassettes N/A | CSNG EXP FIX 
Discs eee | INSTR INT LEN 
Bus ** | LOG RND SGN 
Png [a aaa amare o>) | SQR TAN 
a VAL CHR$ DATES 
ine onset xan | HEX LEFT$ MID$ 
ee, OCTET RIGHT$ SPACE$ 
DOCUMENTATION **** | STR STRING$ TIME$ 
VALUE FOR MONEY EEX | INKEY$ INPUTS POS 
ROW SPC CVD 
*EEEK excellent CVI CVS EOF 
ee, V:.800d LOC LOF MKD$ 
a eg MKI$ MKS$ FRE 
* ‘pon MEM VARPTR —_—-USRn 


Trouble of asort 


I’ve written a pace for my 
business and basically I’m 
very pleased with it. I use 
floppy discs to store customer 
records and frequently need 
to print these records in alpha- 
betical order. I now have 
nearly 1000 records and hold 
these in customer number 
order. I use a method that 
sorts onto a second disc, 
which I can then keep, but 
the sort seems to take hours. 
Can you help with a faster 
routine? 
P. Abbott. 
You don’t give a name to 
your sorting technique, but 
it’s probably a version of the 
‘bubble’ or ‘ripple’ sort. The 
majority of books and novice 
programmers use the ‘bubble’ 
sort, which must surely be 
the slowest sort ever invented. 
The reason for its popularity 
is probably twofold; it’s very 
easy to understand, and only 
takes a few lines of coding. It 
has the annoying property 
that if we double the number 
of items being sorted, it will 
uadruple the sort time. On 
this basis if it takes one 
second to sort ten numbers, 
it will take four seconds for 
20 numbers, and so on until 
it takes 16000 sec for 1200 
numbers. Over four hours! 
Part of the problem lies in the 
fact that we are usually vsing 
interrupted BASIC which serves 
to slow down processing any- 
way. 

What we require is a far 
more efficient sort. One that 
can be recommended for 
speed is called the ‘quicksort’ 
(clever, eh?), The quicksort 
only doubles the sort time for 
double the number of items 
being sorted. Using our pre- 
vious example, if it takes one 
second to sort 10 numbers it 
_ will take two seconds for 20 
numbers and 160 secs for 
1200 numbers, which is just 
over 2.5 minutes, It would 
take too long to explain how 
the quicksort works but here 
is the coding. In this example 
it will sort N numbers in 
ascending order in the array 
A(1) —A(N). It requires the 
B array as working storage, 
but this array only needs 24 
elements to sort 5000 num- 
bers so there is not a lot of 
extra space needed: 

10 DIM A(N), B(KINT(LOG 
(N)/LOG(2)+1),2) 

1000 REM ** quicksort sub- 
routine ** 
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software and systems difficulties. 


1015 BL 1: B(1,2)=N 

5 j1)=1: = 

1020 L=B( 1): BO B.2): 

1030 I=L: J=R: X=A(INT 
NBO) (RL}! 5) 
+ 

1040 IF (A(I)>=X THEN 
1050 ELSE I=I+1: GOTO 
1040 

1050 IF X>=A(J) THEN 
1060 ELSE J=J—1: GOTO 


1050 
1060 IF [>J THEN 1080 
1070 W=A(I): A(I)=A(J): 
ee I=I+1: J=J—1 
1080 IF I<=J THEN 1040 
1090 IF JI-L>=R—I THEN 
1140 
1110 IF [>=R THEN 1130 
1120 S=S+1: B(S,1)=I: 
B(S,2)=R 
1130 R=J: GOTO 1170 
1140 IF L>=J THEN 1160 
1150 S=S+1: B(S,1)=L: 
B(S,2)=d 
1160 L=I 
1170 IF L<R THEN 1030 
1180 IF S>0 THEN 1020 
1200 RETURN 


Having decided that this is 
the sort to use, let’s look at 
the problem a little more 
deeply. If we have 1000 cus- 
tomer records each of length 
100 ch, say, we would require 
over 10GK of memory in 
which to sort the records. It’s 
unrealistic to sort in memory 
because it’s quite likely there 
will not be enough space. We 
will consider two alternatives: 
sort entirely on the disc; 
2) sort the record keys in 
memory and then access the 
records in that order. Method 
will be faster as it takes 

ar longer to swap records on 
the disc than it does to swap 
them in memory. 

Method (2) will require 
that you read into an array 
the first four characters of 
the key field, followed by the 
record address. For example, 
if the disc file holds as record 
1, WATERS & CO LTD etc, 
and record 2, BLOGGS 
MOTORS etc, then in the 
array D$(1) will hold WATE1 
and AS$(2) holds BLOG2. We 
must restrict the number of 
characters to a suitable figure 
to allow the total amount of 
records to fit into memory. 
That means, at eight charac- 
ters per record we will only 
need around 10Kof memory 
to hold 1000 records. For 
example to read record Y 
from disc and store it in array 
element X we would use: 
READ/1@Y,T$: A$(X)= 

LEFT$(T$,4)+STR&(Y): 

X=X+1 _ 

Because BASIC is so different 
in various versions the state- 
ment READ/1@Y,T$ means 
read from file number 1 (disc 
file already defd maybe as 
OPEN/1,‘CUST.DAT’) at 
record number Y(direct access 
address) into string T$. 

Once the array has been 
sorted the following program 
would print the file in sorted 
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order: 

100 DIM A$(1000 

110 OPEN/1, ‘CUST;DAT’ 

120 FOR X=1 TO 1000 

130 Y=VAL(MID§$(A§(X), 
5 


)) 

140 READ/1@Y,T$ 

150 PRINT T$ 

160 NEXT X 

170 CLOSE/1 

Advantages of this method 

are that the file remains intact, 

and that sort is quick. 

Method (2) requires that the 

file itself will be sorted and 

hence it’s best to sort a back- 
up copy of the file in case the 
system crashes in mid sort. 

This method has the advantage 

that a file of any size can be 

sorted, and that the sorted 
file can be kept as a perman- 
ent file if needed. The pro- 
gram is very similar to that 
above and the changes are as 
follows: 

1030 I=L: J=R: READ/1@ 
oa 
0.5)+L),X$ 

1040 READ/1@1,Y$: IF Y$< 
X$ THEN I=I+1: GOTO 
1040 

1050 READ/1@J,ZS: IF 
X$<Z$ THEN J=J—1: 
GOTO 1050 

1070 WRITE/1@I, ZS: 
WRITE/1@J,Y$: I=I+1: 
J=J—1 

I hope these hints may help 

people who are struggling 

with sorts. If the above 
programs do not run then it’s 
because of errors in transcrip- 
tion, please write if you have 
oF, difficulties. 


After BASIC ? 


Although I program in BASIC 
fairly well, I would like to 
consider another language 
that is more powerful than 
BASIC. Can you suggest any 
that are worthwhile trying, 
and would I find them 
difficult. 
As you have written to PCW I 
will assume that you only 
want languages that are avail- 
able on microcomputers. This 
does restrict you considerably, 
but it may not be a bad 
thing because only the most 
common languages have been 
implemented on micros so 
far. The main problem with 
implementing languages other 
than interpreted BASIC on 
micros is that as the majority 
are compiled they require a 
disc system to give of their 
best. They also require more 
than 16K in order to support 
the compiler and operating 
system. I have assumed that 
you are only interested in 
high-level languages not 
assembly languages. 
FORTRAN — is the most 
widely used language in the 
scientific field. There are a 
great many programs already 
written in FORTRAN and 
hence this library should be 
available to you, saving you a 


great deal of programming 
time. FORTRAN has well de- 
fined input/output routines, 
and is universally defined, 
enabling programs to be as 
portable as possible. 
FORTRAN is, however, not a 
structured language, and this 
in many people’s eyes it its 
main failing. FORTRAN has 
many niggling limitations that 
make programming tedious — 
for example DO loops (The 
FOR loop equivalent) will 
only work for integers greater 
than zero. 

ALGOL — is the other 
main scientific language with a 
first class structured approach, 
algorithms are written using 
ALGOL-like statements, 
making translating into 
ALGOL particularly 
easy. Library routines are 
readily available, and tech- 
niques such as ‘recursion’ are 
possible. ALGOL’s main fail- 
ing is the lack of defined 
input/output routines. Both 
ALGOL and FORTRAN have 
very limited. string handling 
routines. 

COBOL — is a business 
language which needs a fairly 
large amount of storage. Pro- 
gramming in COBOL takes 
some time to master, but as 
this language is the world’s 
most popular the rewards for 
learning it are worthwhile. 
COBOL is an English-like 
language using words rather 
than symbols — example: 
HTCMS=2.54 * HTINS would 
be MULTIPLY HTINS BY 
2.54 GIVING HTCMS. Note 
that COBOL is not particular- 
ly appropriate to scientific 
applications. 

ASCAL — is a recent 
attempt to marry all the 
advantages of other languages 
and remove all their restric- 
tions. It is structured like 
ALGOL. As long as PASCAL 
is defined to a universal stan- 
dard then it is probably one 
of the best languages to learn. 
It promises to be available on 
most micros eventually. Read 
the articles in previous PCWs 
for more detail on PASCAL. 

FORTH — is available on 
several systems (sometimes 
in a version called FIFTH). 
FORTH is a ‘threaded’ 
language ideally suited to 
microcomputers as it only 
requires around 5-6K for the 
interactive FORTH compiler. 
FORTH requires no extra 
area for symbol tables, over- 
lays or any other software. 
FORTH is very fast. certainly 
faster than any of the above 
languages, and allows assem- 
bler inserts if it is still not fast 
enough for your application. 
FORTH is ideal for compiler 
writing as well as ‘ordinary’ 
programs. All routines in 
FORTH operate using a stack 
and every time a new ‘primi- 
tive’ (key word) is defined it 
can be incorporated perman- 
ently in the language. 
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APC is the pre-eminent publication 
in the field of microcomputers. 
Whatever your area of interest in 
microcomputing — be it business, 
home, educational — or simply as a 
leisure pursuit — APC is your passport 
to the future. Subscribe today, 
and sleep soundly at night, 
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personal copy of APC will come 
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Will IBM team up with Madame Tussauds to produce living’ replicas of our dead relatives? 
This chilling spectre of a future in which loneliness and depression are countered by ‘plastic pals’ 
is just one aspect of ANIMISTICS as proposed by Neil Frude — lecturer 
in Clincial Psychology at University College, Cardiff. 
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The scene is a man alone in the evening 
in a large computer installation, over- 
turning teletypes, smashing equipment, 
destroying irreplaceable data tapes; he’s 
not a life-time Luddite of the new school, 
but a highly-trained operator with many 
years experience in programming and 
systems operation. The frustration he 
feels when things don’t operate to plan 
is an exaggeration of the emotion which 
many people experience when faced 
with the repeated failure of asystem or a 
program. Such a scene has been realised 
a sufficient number of times, with pre- 
dictably disastrous consequences, for 
IBM to now be financing large-scale re- 
search by psychologists into ‘user- 
friendliness’ in micro-based systems. 
American psychologists Karl Scheibe 
and Margaret Erwin left a tape-recorder 
running in a room in which subjects 
played games with a micro. The spon- 
taneous comments which emerged 
ranged from the affectionate to the 
downright hostile. The machine was re- 


| ferred to as ‘it’, ‘you’, ‘he’ and ‘Fred’ 


(never as a female) and, say the experi- 
menters, “‘the use of profanity was com- 
mon”, These psychologists concluded 
that the computer is very easily cast in 
the role of another person. Adrian Hope, 
writing in Everyday Electronics des- 
cribed an unconventional operation 


with the Texas Instruments voice syn- 
thesiser ‘Speak and Spell’. To expand 
the vocabulary there is provision for an 
additional plug-in ROM, accessible by a 
‘module’ button on the keyboard. It 
appears that if this is pressed when a 
module is not inserted then the machine 
invents words and phrases. “So pathetic 
is the garbled sound’, writes Hope, 
“that only the hardest heart can fail to 
feel sorry for the confused electronics 
burbling as if in final, demented death 
throes,” 

Each of these emotional and ‘per- 
sonal’ effects of machines and programs 
is incidental to the design of the systems 
involved. Such reactions are secondary, 
and often unwanted. If we try to hu- 
manise a machine then the effects are 
far more devastating and may be very 
easy to achieve. Take the simplest of 
‘programs’ in which there is displayed 
on a VDU the question “WHAT IS 
YOUR NAME?” with provision for a 
string variable input. The user types in 
“JOHN” and the machine, using this 
string, then prints “THANK YOU, 
JOHN, NOW LET’S HAVE SOME 
FUN!” Now no machine is likely to run 
out of memory on that program, and it 
doesn’t take a two-month programming 
course to write the software, yet the 
psychological effect on the naive user is 


“aye 


often profound, With appropriate skill 
(and they are the skills of the playwright 
rather than of the high-grade program- 
mer) the user, child or adult, is easily 
seduced into further interaction, State- 
ments and reactions by the machine can 
arouse feelings of humour, affection, 
hostility, boredom, excitement and, in 
principle, the whole range of human 
emotions. 

_ So far there has been relatively little 
interest in ‘humanising’ machines. Per- 
haps those interested in recent develop- 
ments are more intrigued with the tech- 
nological potential rather than the 
human potential of new technology. 
This will certainly change as machines 
increase in number and reach -further 
than the ‘hard core’ of technologists and 
business systems people, as micro appli- 
cations swamp into more and more fields 
and as the economic rewards of mass 
sales to the technically unsophisticated 
become apparent. Chips may now be in- 
vading homes in the form of calculators, 
television games and watches but there 
is a far greater potential market for pets 
(with the lower case ‘p’). When this is 
realised, then we can expect the parallel 
development of ‘micros as calculators’ 
and ‘micros as companions’. This scen- 
ario has no need to await future tech- 
nological developments but would 
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involve rather a growth of interest and a 
realisation of current potential together 
with a leap, or several leaps, of the ima- 
gination. It needs psychologists, play- 
wrights, technologists and program- 
mers to cooperate to produce the viable 
companion. The prospect is both excit- 
ing and frightening, yet economic pres- 
sures make its realisation seem inevitable. 
The dream of every chip salesman should 
be microcircuits, warm and fur-covered, 
contentedly purring away in every old 
lady’s lap, looking up once in a while, 
speaking words of reassurance and of its 
love and need for her, and reminding 
her to take her tablets at the right time. 

If such a prospect seems laughable 
then we should bear in mind some of 
the psychological factors which will 
contribute to its becoming a fact. The 
viability of the ‘intimate machine’ rests 
on two psychological premises, the de- 
sire for (and indeed the real benefits of) 
intimacy and the tendency of people to 
treat inanimate objects possessing certain 
vital features ‘as if? they were animals 
or people. These characteristics together 
ensure the viability, for a large number 
of potential customers, of the ‘plastic 
pal’, the ‘micro friend’. 

When social scientists conduct ‘happi- 
ness surveys’ to determine the correlates 
of happiness, and when they ask people 
about the most important things in their 
lives, it emerges that the people who are 
most happy are those with several friends 
and social contacts, particularly very 
close ones, and that people say that they 
value most highly (even above wealth and 
health) their relationships with other 
people. Psychologists have provided lists 
of those factors in social contact which 
seem to be of particular value, to help 
people and to make them happy. These 
factors, such as ‘feeling close to’, ‘feel- 
ing responsible for’ and ‘feeling known 
by’ the other person have been further 
analysed so that we understand some- 
thing of the particular behaviours and 
interactions which foster such feelings. 
These analyses might well provide the 
psychological groundwork for any 
_ attempt to simulate such actions of the 
‘other person’ in a machine form. The 
practical benefits of intimate contact 
are undoubtedly great and we can link 
this with the fact that those without 
such regular interaction seem psycholo- 
gically vulnerable. Single people, the 
widowed and the divorced are at greater 
‘risk’ of mental breakdown, depression, 
suicide and alcoholism. 

Recent studies have indicated that 
relationships with pets may go at 
least some of the way towards satisfying 
the need for intimacy. The sad fact is 
that not everybody has a family ‘on tap’ 
— there are many lonely and isolated 
people, particularly among the old, and 
there is now good evidence to suggest 
that some people gain from their cats 
and dogs, budgies and tortoises many 
of the psychological rewards which 
most of us obtain from satisfactory rela- 
tionships with other people. Now the 
limited behavioural repertoire of some 
of these creatures would have suggested 
that they would not be likely to prove 
satisfying as companions and the fact that 
they do brings us to the next psycholo- 
gical premise in our argument — that 
people tend to ‘read into’ creatures and 
objects characteristics which are typical 
of higher forms. This process has been 
labelled ‘animism’ and it has been the 
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subject of considerable study by psy- 
chologists and anthropologists. 

In the 1940s the _ psychologist 
Michotte built a contrivance by which 
two shapes were seen as coming together 
at various speeds and ‘colliding’ with 
various patterns of reaction. What 
Michotte found was that people tended 
to interpret these visual patterns not 
only in a ‘causal’ way (they saw a ‘billiard 
ball effect’, a ‘pushcart effect’ and so 
forth) but also a ‘human’ or ‘animistic’ 
way. Thus one object might be said to 
push another one ‘deliberately’ or 
‘viciously’. There was then a tendency 
to attribute motives, emotional expres- 
sion and intentionality to simple moving 
shapes. In other experiments short pieces 
of cartoon film have been produced, 
and once again it is easy to get people to 
report ‘high level’ interpretations — they 
ascribe ‘animistic’ qualities to simply 
moving geometric patterns. It seems, 
too, that particular shapes often bring 
out a specific emotional response. A 
skilled cartoonist need only draw a few 
lines to create a baby rabbit or ‘Bambi’ 
figure, which is not only easily recognis- 
able but also ‘appealing’ and of course 
doll manufacturers successfully recognise 
this tendency and turn it into product 
and cash, 

It’s not just visual presentations that 
produce such emotional reactions, 
either. Quality of voice, the nature of 
statements being made, physical warmth 
and softness or furriness may all produce 
positive emotional responses. If we com- 
bine several such characteristics then 
the overall psychological result is greatly 
magnified. Anthropological interest in 
animism has stemmed partly from the 
view that it is a characteristic feature of 
the ‘primitive mind’. Certainly it is 
found most strongly in primitives and 
children, but that is not the end of it. 
The experiments described above indi- 
cate that the tendency exists, albeit in a 
somewhat quiescent form, in all of us. 
A few years ago one successful marketing 
company in the States launched the ‘Pet 
Rock’, an executive toy, expensively 
packaged and with instructions for care 


and feeding. The joke sold well. Scratch 
an executive, it seems, and you’ll finda 
primitive. We can, however, overcome 
the sophistication which may normally 
hide the animistic tendency by matching 
it with sophisticated technology. Some 
of the possibilities here are indicated in 
fictional creations which capture the 
popular imagination. There has long 
been a fascination with ‘humanoid’ auto- 
mata; they are mentioned in Homer’s 
Iliad and they are the stock-in-trade of 
much of today’s science fiction, both in 
print and on the screen. Stars such as 
R2D2, Hal of ‘2001’ and several of the 
characters of the ‘Hitch-hiker’s Guide to 
the Galaxy’ endear themselves to viewers 
and listeners by virtue of their ‘person- 
ality’. Their fascination does not lie in 
their formidable computing power but 
rather in their typically ‘human’ utter- 
ances and foibles. 

~ There are lessons to be learned from 
close examination of the characteristics 
of these popular creations. Almost all of 
these androids are conceived of as male, 
they are all primarily task-oriented or 
problem-solving machines with merely 
incidental personality rather than being 
specifically contrived humanoid com- 
panions, and they are mechanically 
rather primitive with a surfeit of whir- 
ring cams and flashing lights. Some of 
their voices are far more stilted and 
sound far more artificial than the best 
of the voice synthesisers available 
currently. In a word they are in many 
ways too ‘hard’ and would be unlikely, 
were they realised. to be immediately 
acceptable as companions. The problems 
of ‘softening’ the technology, however, 
are not difficult and are largely sur- 
mountable with currently available 
methods. What is needed is imagination, 
research into mass-user acceptability 
and a belief that there are likely to be 
vast social and economic pay-offs. 


Softening 
the hardware 


It’s undeniable that there is a ‘machine 


barrier’. People feel initially self-con- 
scious and uncomfortable ‘relating’ to a 
machine, The same kind of self-con- 
sciousness is often found when one is 
discovered talking to a cat. Yet (in pri- 
vate at least) some people talk to their 
cats all the time. If they overcome the 
‘animal barrier’ involved in treating 
animals ‘humanly’ then they can pro- 
‘bably also be seduced into treating ma- 
chines in the same way. The ‘human-ness’ 
of sophisticatedly programmed machines 
with appropriate software is likely to be 
far greater than that of any animal, al- 
though the barrier, it is true, is likely to 
be more formidable, at least initially, 
What hardware features would the 
ideal micro companion possess? What 
should it look like, feel like and sound 
like? Presumably people would relate 
more easily to a body shape which they 
were familiar with and so a human or 
animal form would seem to be most ap- 


propriate. A soft skin or fur covering. 


would feel pleasant to the touch and a 
suitable body temperature could be 
maintained. Above all, the ideal com- 
panion would not look like today’s 
computer, no shiny metal parts, no 
VDU or flashing lights. Facial features 
could be customised so that no two 
machines actually looked alike (com- 
puter controlled production would 
make this easy and cheap) and voices 
could be tailored in a similar fashion so 
that no two sounded exactly alike. The 
state of the art in voice synthesis is now 
adequate for this aspect of the produc- 
tion of a good companion though the 
voices produced are a bit harsh and 
school-masterly. The user would want 
less perfection, more pauses, splutters, 
repetitions, coughs and giggles. We 
would expect 50% of production to be 
of female voices (and we would naturally 
want to combine these with female body 
shells unless we have a consumer with 
rather particular needs.) 

The possibility would exist for pro- 


ducing a model which not only looks 


human but which looks like a specific 
person, someone famous perhaps, or an 
absent member of the family. The psy- 
chological effects here are quite unex- 
plored. Would schools keep an appro- 
priately programmed Shakespeare replica 
in the cupboard to teach English? Per- 
haps there would be legislation to pre- 
vent the simulation of a person until 
50 years after their death as in-the exis- 
ting copyright laws. The chilling thought 
of a lonely person sitting in conversa- 
tion beside the fireside with a replica of 
a deceased spouse does little to assuage 
fears as to the possible social impact of 
the application of technology in the 
way we are envisaging. It may even give 
us cause to ponder the desirability of 
consciousness-raising | in the present 
form; yet the elements for these de- 
velopments are lying about usin separate 
packages and it cannot be long before 
somebody will put them together. There 
is, after all, a Jot of money to be made. 
At this stage it seems that realistic 
locomotion is one aspect of the hard- 
ware side of things which is not readily 
achievable. Maybe the first generation 
of companions will be relatively seden- 


tary. Other body movements may be. 


complex but are not difficult in prin- 
ciple, as witnessed by the more success- 
ful of the achievements of the automata 
makers in the 18th and 19th centuries. 
Indeed automata making has a very 


ancient history and testifies to a long- 
established desire to create realistic 
humanoids. The then ‘new technology’ 
of clock-making gave rise to a great 
leap forward in the production of such 
machines in the 17th and 18th centuries 
and we can expect a similar and much 
greater impact-making leap with today’s 
new technology. The problem with 
sophisticated machines of the old era 
was that they were hand-produced and 
made on a ‘one-off’ basis. The mass- 


produced automata were far simpler 


toys with very limited movements. 
Today, of course, it’s possible to produce 
in quantity even the most sophisticated 
machines with a very much extended 
repertoire of movement. In St. Peters- 
burg in 1799 the Academy of Sciences 
offered a prize for the first machine 
which could realistically produce the 
five vowel sounds, We can imagine the 
contraptions which were produced, all 
bellows, bladders and reeds but never- 


theless designed and constructed with a 


great deal of care and ingenuity. If 
yesterday’s automata makers had had 
the opportunity to employ today’s tech- 
nology then their productions would 
have been truly astonishing. The old 
automata engineers were not content, 
however, to merely produce effective 
functional mechanisms; they took great 
pains to incorporate them into life-like 
models. This made them far more awe- 
some and intriguing to a public which 
queued and paid to see those ‘miracles 
of the modern age’. 


Softening 


the software 


The production of attractive and real- 
istic dolls provides a vehicle for the out- 
put and display of the control systems 
which are the forte of contemporary 


technology. The animistic potential of 


an appealing voice and moving body 
is fulfilled only when what the 
machine does and says is realistic and 
appealing, too. Already there are success- 
ful attempts to simulate ‘human’ con- 
versation, though in a limited form and 
via a VDU and teletype, in counsel- 
ling and psychiatric programs such as 


Weizenbaum’s ELIZA and in medical 


diagnostic programs. It’s true that these 
have a very limited repertoire and gener- 
ally work by searching for and recognis- 
ing key terms. However, we probably 
overestimate the degree of complexity 
and the extent of the repertoire of nor- 
mal social conversation. Certainly people 
do a great deal of isolated term-spotting 


and ‘filling in’, and we just don’t know 
how sophisticated an informal conver- 
sational program would have to be in 
order to be pleasurable and user-accept- 
able. Conversation with young children 
or with the senile can be difficult and 
arduous but may, nevertheless, be plea- 
surable. The type of errors which the 
machine would produce would certainly 
be somewhat different from those which 
children make, however, and it remains 
to be seen whether people’s reactions to 
these would be of the same kind. What 
is certain is that errors in social chatting 
are not of the same practical impor- 
tance as in task-oriented interactions; 

they may be amusing and easily toler. 
ated, or perplexing and difficult to live 
with, It’s likely that people would 
accommodate to the limitations of the 
machine, as they do with young children 
and other people with low comprehen- 
sion, and alter their speech patterns so 
that they produce statements which will 
be understood. There is a natural process 
by which linguistic style is ‘shaped up’ 

in accordance with the perceived effects 
of former interactions, and of course we 
would expect the machine software to 
contain the potential for a _ similar 
accommodation and ‘learning from’ the 
input style of the speaker or teletype 
user. 

The style of informal speech is not, 
of course, that which we see in the type- 
scripts of acarefully written play (unless 
it’s by a playwright of the Pinter school) 
but contains much repetition, pausing, 
restatement and imprecision. Thousands 
of recordings of ‘ordinary’ conversations 
have been analysed by linguists and 
psycholinguists and it’s not difficult to 
produce a simulation of the style. But 
such a level of analysis need not in fact 
be necessary and the probem might be 
successfully solved in a more direct 
fashion by the programmer with a good 
ear and some of the skills of the drama- 
tist and by a program with the right 
degree of flexibility and randomness, 
Without formal analysis a ‘try it and see’ 
approach would be employed. 

Next we come to the ‘personality’ of 
the machine as implemented in the pro- 
gramming. The computer simulation of 
personality has a relatively long history. 
Loehlin’s program ALDOUS recognises 
situations, reacts ‘emotionally’ and in 
various versions is a decisive or hesitant 
reactor. There is also RADICAL 


ALDOUS, CONSERVATIVE ALDOUS 
and SAINT ALDOUS. We see here a 
good opportunity for the customisation 
of programs. The machine should be 
basically sympathetic and ‘good’ but 
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perhaps also have occasional moods of 
obstinacy or naughtiness. It should be 
predictable but not too predictable, 
vary through the day and accommodate 
to some extent to the mood of the user. 
It should be a willing chess opponent 
when required and also occasionally 
suggest a game, and take both wins and 
defeats ‘in character’. 

The initial contact between user and 
machine may well be stilted but this will 
change as intimacy develops. First en- 
counters are always very important and 
skilful programming would be required 
to ensure smoothness. There are, of 
course, already a number of programs 
which are designed to overcome even an 
initial hostility of a user. They spot 
hostile statements and swear words and 
‘give as good as they get’, attempting to 
win over the aggressive and unsympa- 
thetic person interacting with them. 
These attempts to enable the machine 
to ‘make friends and influence people’ 
display a good deal of the psychological 
insight and subtlety which may well be- 
come typical of this new area of ‘soft’ 
software. 

As interaction with the user pro- 
gresses, the machine should adapt and 
settle and become more ‘at home’ and 
more ‘in tune’, changing from the initial 
hesitancy which characterises a first 
meeting with a stranger to the relaxed 
mode which is more typical of an estab- 
lished friend. It should build up a repre- 
sentation of the user’s personal world, 
remembering his likes and dislikes, stor- 
ing some information from past inter- 
actions and recalling aspects of their 
previous life together. The user will thus 
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become more predictable to the machine 
while at the same time the machine be- 
comes more predictable to the user. 

The practical uses of companion ma- 
chines are, of course, numerous, They 
will act as entertainers, comforters, 
memory-aids, calculators, teachers, 
guard-dogs and telephone-answering ma- 
chines, They will read aloud texts from 
newspapers and books, play games, make 
suggestions for meals and call a doctor 
when the user is ill. They will add inter- 
est to life, provide an opportunity for 
care and nurturance and be an ever- 
present tonic against boredom and 
loneliness. 

Initial doubts about the viability of 
real ‘personal contact’ between human 
and machine may be dispelled when we 
see the pleasure and apparent intimacy 
which people show with their pets, and 
attribution of personality and motive on 
the basis of the often limited and non- 
interactive behaviour of these animals. 
The evidence suggests that, despite the 
‘machine barrier’, within hours, or per- 
haps even minutes, of suitable man- 
machine interaction many of the initial 
inhibitions are readily overcome. The 
uniqueness of the ‘experienced’ machine 
which has been living with its user, the 
subtle reactiveness and personality which 
can be displayed, and the blend of pre- 
dictability and unpredictability which 
will characterise these companion sys- 
tems seems to offer every chance that 
they will more than adequately provide 
for many of the functions which pets, 
human acquaintances and maybe even 
intimates currently fulfil. 

We may regret that anybody could 


have use for such a ‘person substitue’ yet 
it’s undeniable that many people (and 
for some functions maybe most people) 
do have spaces in their lives which a suit- 
able machine could help to fill. How the 
realisation of this current and near-future 
potential will affect the social order can 
hardly be imagined, but the effects will 
certainly be profound. We know a great 
deal about human needs, we know that 
many social needs are not being fulfilled 
by many people, we know many waysin 
which they can be satisfied and it seems 
probable that some at least can be satis- 
fied by silicon. Although many people 
are bound to find the idea repugnant 
and an insult to the nature of man, the 
forces of the market place will ensure 
that the necessary links are made bet- 
ween existing modules and existing skills 
to soon produce the companion 
machine. The implications are deva- 
stating, we should be talking about it, 
we had better be prepared. 


APC anticipates that as controversial an 
article as this one by Neil Frude is bound 
to provoke considerable reaction from 
readers. Should ,this be the case there 
may well be the opportunity to produce 
a ‘follow-up’ article, based on that res- 
ponse., Of particular interest will be: 

(1) Contributions of short programs in 
the Animistics field (and maybe a prize 
for ‘the best’). 

(2) Anecdotes relating to personal ex- 
periences — especially with children. 

(3) Ideas on ‘machine softening’ 

(4) Comments on the social implica- 
tions of what has been suggested. 
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News has been coming in thick and fast recently about Motorola's 
forthcoming addition to the new range of 16-bit super micros, 
the M68000. But with something approaching a six month wait before 
any sort of general availability, has it arrived too late? 
Nicholas Jarmany largely dodges that question and instead casts an 
appreciative eye over its capabilities. 


The Intel 8086 was the first of the 
new 16-bit micros to appear, closely 
followed by the Zilog Z8000. At the 
moment there is. still no physical sign of 
Motorola’s contender, so presumably 
Intel and Zilog are rubbing their hands 
with glee. The only dampener for them 
is that the M68000 is almost certainly 
the most powerful of the three; in fact 
at one stage when some of the big manu- 
facturers saw the advance specifications, 
it was said that Motorola just wouldn’t 
be able to make it. It now looks, how- 
ever, as if the scepticism was ill-founded 
for sample devices are already spreading 
round the world. 


Internal 


& 

Operation/Layout 

The M68000 internal structure is that of 
a 32-bit micro, making it very efficient 
with long word operations. There are 
17 32-bit registers (apart from a 32-bit 
program counter and a 16-bit status 
register) comprising eight data registers 
for 8, 16 and 32 bit data and seven 
address registers. All 17 registers can be 
used as index registers and there is also 
a specific user and supervisor stack 
pointer. 

There are two modes of operation, 
user and supervisor. In user mode 
certain instructions are illegal and 
areas of memory can be locked out by a 
memory management unit. When in this 
mode a switch to supervisor mode 
always occurs when an interrupt, bus 
error etc is received. In supervisor mode 
all instructions are available and the full 
status register can be accessed. This 
arrangement is similar to that of the 
Z8000. 

A trace mode can be set in supervisor 
mode which causes a branch via a trace 
vector after execution of every instruc- 
tion — very useful for program debug- 
ging! The lower 512 words of memory 
are reserved for a vector table contain- 
ing 255 vectors, of which 192 are 


18 APC 


reserved for user interrupt vectors. 

Interrupts, bus errors etc. all cause 
what Motorola calls ‘exception proces- 
sing’ , of which there are three levels of 
priority. In order of decreasing priority, 
Group 0 contains — Reset (highest), 
Bus Error, Address Error; Group 1 — 
Trace, Interrupt, Illegal Instruction and 
Privilege Violation; Group 2 (all equal 
priority) — TRAP, TRAPV, CHK, Zero 
Divide. All the exceptions cause branch- 
ing via the appropriate vector, except 
for certain occurrences of Bus Error. 
If a Bus Error and a Halt signal are 
received simultaneously, the processor 
will re-run the current memory access 
on the negation of HALT. 


Instruction set 


There are 56 basic instruction types and 
14 addressing modes, and although this 
doesn’t seem like many instructions, it’s 
deceptive as there are many variations. 
For example MOVE caters for loading 


Vcc(2) 
GND(2) 
CLK 


register(s), storing register(s), moving 
data in memory etc. The total number 
of useful instructions exceeds 1000! 
The addressing modes are extremely 
comprehensive and no _ programmer 
could envisage needing more. The 
format of the instructions is astonishing- 
ly simple and easy to use. With other 
micros you have to learn the code for 
each individual instruction — e.g. Load 
register (indexed) might be 0A and load 
register (immediate) FE. Not so with 
the M68000 .. . All you need to learn are 
the numbers for the 56 basic instruc- 
tions and the numbers for the addres- 
sing modes. The complete instruction is 
then made up of the code for the 
instruction, the data size, addressing 
mode and register number (if required). 
Dead simple! 


The speed of the M68000 is also some- 
thing to be marvelled at. It’s faster than 
the 8086, the Z8000 and the PDP11/45 
— and it can’t be a lot slower than the 
PDP 11/70! It’s twice as fast as the 
Z8000 on a 16-bit multiply (35 instruc- 
tion cycles compared with 70 — maxi- 
mum). 


Omissions 

Unlike the Z8000 the M68000 does not 
have on-chip refresh and multi-micro 
control. It could be that Motorola does 
not want to be seen to be abandoning 
its traditional approach in favour of 
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BNE NEES 


Trace Mode 


Supervisor 
Status 


somebody else’s. I feel, however, that 
there has been a preference towards 
getting as much computing power into 
the CPU as possible — at the expense of 
other features that can easily be added 
on with a few external chips, (Try exten- 
ding an instruction set with a few exter- 
nal chips!) What Motorola has aimed at 
is producing the most powerful single 
chip CPU in the world. Possibly the plan 
has succeeded. 


Hardware 


The M68000 has definitely been design- 
ed for large systems, although a small 
system could easily be based around it. 
The processor is contained in a 64-pin 
package (long!) which is needed because 
none of the signals are multiplexed, thus 
increasing speed and ease of use. It 
requires +5V and a single phase clock 
(up to 8MHz). . . an internal cycle is 
defined as two clock cycles (250ns). 


DATA ADDRESSING MODES 


Register Direct Addressing 
Data Register Direct 
Address Register Direct 


Absolute Data Addressing 

Absolute Short 

Absolute Long 

Program Counter Relative Addressing 
Relative with Offset 

Relative with Index and Offset 


Register Indirect Addressing 
Register Indirect 
Postincrement Register Indirect 
Predecrement Register Indirect 
Register Indirect With Offset 
Indexed Register Indirect With Offset 


Immediate Data Addressing 
Immediate 
Quick Immediate 


NOTES: 

EA Effective Address 
Address Register 
Data Register 
Address or Data 
Register used as 
Index Register 
Status Register 
Program 
Counter 
Contents of 


Generation 


EA = Dn 
EA = An 


DATA = Next Word(s) 
Inherent Data 

Implied Addressing 
Implied Register 


User Byte 


Extend 


Overflow 


There are 23 address lines giving 16 
Mbytes of direct addressing; individual 
bytes are accessed via the UDS and 
LDS signals. A valid address is indicated 
by AS and the addressed device res- 
ponds with DTACK (Data Transfer 
ACKnowledge). This also acts to stretch 
memory cycles (if necessary) by not 
being negated until the memory is 
ready. Memory read, write, read-modify- 
write cycles take 4, 5 and 9 clock cycles 
respectively. A great feature of the 
M68000 is its ability to interface 
directly with standard M6800 peri- 
pherals. If, at the beginning of a 
memory access cycle, a VPA signal is 
received, the processor switches to the 
M6800 form of addressing. VMA is 
taken low and E is equivalent to 
M6800 $2 (1MHz). Hence VPA can be 
derived from the address decoding logic 
on any M6800 peripheral boards. 

FCO to FC2 are outputs that show 
the type of processing currently being 


EA = (Next Word) 
EA = (Next Two Words) 
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EA = (PC) + (Xn) + dg 


EA = (An) 
EA = (An) An<An+N 
An <An -N, EA = (An) 
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EA = SR, USP, SP, PC 


dg Eight-bit Off- 
set (displace- 
ment) 

d16 Sixteen-bit 
Offset (dis- 
placement ) 

N 1 for Byte, 2 
for Words and 
4 for Long 
Words 
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done in the-CPU; IPLO to IPL2 are 
inputs devoted to interrupts. Seven 
levels of interrupt are available (level 
0 = no interrupt), level 7 being the high- 
est priority. With all seven levels of 
interrupt the vector address for the 
service routine can either be supplied 
by the interrupting device — or else 
an autovector can be used. To my 
knowledge this is the most advanced 
form of interrupt handling available 
on a micro. On reception of an inter- 
rupt, an interrupt acknowledge code is 
placed on FCO-FC2 and a read cycle is 
entered with the interrupt level on the 
lower three bits of the address bus. The 
processor then expects the vector 
address to be placed on the data bus 
and DTACK to be given. If this does 
happen then the processor jumps to the 
location pointed to by the contents of 


INSTRUCTION SET 
Mnemonic Description 


ABCD Add Decimal with Extend 

ADD Add 

AND Logical And 

ASL Arithmetic Shift Left 

ASR Arithmetic Shift Right 

BCC Branch Conditionally 

BCHG Bit Test and Change 

BCLR Bit Test and Clear 

BRA Branch Always 

BSET Bit Test and Set 

BSR Branch to Subroutine 

BTST Bit Test 

CHK Check Register Against 
Bounds 

CLR Clear Operand 

CMP Compare 

DBCC Test Cond, Decrement and 
Branch 

DIVS Signed Divide 

DIVU Unsigned Divide 

EOR Exclusive Or 

EXG Exchange Registers 

EXT Sign Extend 

JMP Jump 

JSR Jump to Subroutine 

LEA Load Effective Address 

LINK Link Stack 

LSL Logical Shift Left 

LSR Logical Shift Right 

MOVE Move 

MOVEM Move Multiple Registers 

MOVEP Move Peripheral Data 

MULS Signed Multiply 

MULU Unsigned Multiply 

NBCD Negate Decimal with Extend 

NEG Negate 

NOP No Operation 

NOT One’s Complement 

OR Logical Or 

PEA Push Effective Address 

RESET Reset External Devices 

ROL Rotate Left without Extend 

ROR Rotate Right without Extend 

ROXL Rotate Left with Extend 

ROXR Rotate Right with Extend 

RTE Return from Exception 

RTR Return and Restore 

RTS Return from Subroutine 

SBCD Subtract Decimal with 
Extend 

SCC Set Conditional 

STOP Stop 

SUB Subtract 

SW AP Swap Data Register Halves 

TAS Test and Set Operand 

TRAP Trap 

TRAPV Trap on Overflow 

TST Test 

UNLK Unlink 
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the memory location whose address is 
on the bus. If this does not occur then 
the CPU assumes an autovector and 
jumps using the autovector correspond- 
ing to the interrupt level. 

BERROR is an input that can 
signify a non-responding device or an 
illegal access determined by an extemal 
memory management chip. The effect 
this signal has depends on certain 
conditions already described. Both the 
RESET and the HALT lines are bi- 
directional, allowing external devices to 
be reset via the reset instruction. An 
internally generated halt is caused when 
a Bus Error signal is received on two 
consecutive memory accesses. When this 
occurs an externally generated reset is 
required to restart the CPU. This feature 
provides useful protection in_ the 
event of a catastrophic system failure! 


Summary 


The strong points of the M68000 seem 
to be its simple, easy to learn instruc- 
tion format and its useful range of 
instructions (including control of both 
stacks and queues), coupled with the 


VARIATIONS OF INSTRUCTION TYPES 


Instruction 
Type Variation |Description 


Add 

Add Address 
Add Quick 

Add Immediate 
Add with Extend 


ADD 


Logical And 
And Immediate 


Exclusive Or 


Move 
Move address 
Move Quick 


Compare Immediate 


Exclusive Or Immediate 


ability to maintain linked stacks. With 
floating point instructions on the way, 
writing high level languages will be a 
piece of cake! This sort of instruc- 
tion should enable more efficient pro- 
gramming and the introduction of many 
mainframe techniques. 

Bus arbitration is also very compre- 
hensive, allowing simple control of a 
multi-master bus. The direct interface 
to M6800 peripherals must appeal to a 
lot of people, as it will mean that most 
of their existing equipment could easily 
be used in a M68000 system, thus eli- 
minating a lot of annoying and expen- 
sive duplication of costs. 

And yet all this extra power results 
in no extra difficulties in system design. 
More and more of the complications 
of circuit design seem to be disappearing 
into fewer LSI and VLSI chips. 

Motorola has made it clear that it 
expects to extend the instruction set in 
the near future, to include instructions 
like FIX and FLOAT (floating point to 
integer and vice versa); it also expects 
to bring out a 16MHz version. But what 
about now? Small quantities of the 


MOVE 


MOVE 
to SR 
MOVE 
to CCR 
MOVE 
USP 


NEG 
NEGX 


NEG 


OR 
ORI 


OR 


SUB 
SUBA 
SUBI 

SUBQ 
SUBX 


SUB 


from SR 


M68000 are expected on the market in 
the next few months, but at the 
moment all the chips are going to the 
big firms for evaluation — not surpri- 
singly in view of the new competition 
in this extremely valuable market. How- 
ever, aS soon as second-sources get into 
production the supply position is bound 
to improve. I was told by one of Moto- 
rola’s distributors that they had achiev- 
ed 98% functional chips from the very 
first masks — an astounding achieve- 
ment for a chip of this complexity! 
A memory management chip is also 
mentioned in the advance spec on the 
M68000 but no one,could tell me any- 
thing about it, so I doubt if it can be 
appearing at all this year. But who 
cares? If you can get your hands on an 
M68000 you’ll be too heavily occupied 
to think about anything else for some 
time to come! 
My thanks to Hawke-Cramer for helping 
to obtain information for this article. 
Technical details are based on data 
derived from Motorola Advanced Speci- 
fication Data Sheets. 


Instruction = 
Type Variation| Description 


Move from Status 
Register 

Move to Status 
Register 

Move to Condition 
Codes 

Move User Stack 
Pointer 


Negate 
Negate with Extend 


Logical Or 
Or Immediate 


Subtract 

Subtract Address 
Subtract Immediate 
Subtract Quick 
Subtract with Extend 


In the microcomputer field, the Cromemco System Three and Z-2H Winchester Hard Disc 
Systems stand alone in the range of features and capabilities offered. These systems are based 
on the Z-80A chip, and have from 1-4 mbytes of diskette storage, and from 10-80 mbytes of 
hard disc storage, combined with the widest range of software available in the industry, including 
Multi-user, Multi-tasking operation. 

The computers have a large S100 motherboard and the operating system is a Superset of 
CP/M, thus allowing a wide range of non-cromemco hardware and software to be used. This 
also provides ‘‘obsolescence insurance’’. Some of these features include high resolution colour 
graphics, Eprom programmers, remote terminal emulation, and card reader interfaces. 

Cromemco Basic, available in 3K, 16K, and 32K structured/KSAM versions, is fast, efficient, 
and ideal for teaching purposes because of it’s dynamic error trapping on entry, and easy file 
handling. Cromemco Fortran IV and Cobol are equal in power to those found on mainframes, 
and of course, Pascal, C, and other high level languages are also available. 

Informative Systems, Cromemco’s authorised centre for sales and service, have installed 
many systems throughout Australia, backed by Cromemco trained technical staff offering 
maintenance, support and user training. 


Sydney (02) 680 2161 


INFORMATIVE SYSTEMS Pty Ltd 


Specialists in professional microcomputers and high performance computer support products. 


3 Bank Street, South Melbourne, Vic 3205 Telephone (03) 690 2284 Telex 30458 INSYST 
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COMPUTER 


Games with big trees 


Last month we discussed the use of the 
minimax method to search game trees, 
using noughts and crosses as our 
example. This is a game with sufficient 
symmetry to reduce the number of 
essentially different moves at the start 
to three: the centre, a corner and the 
middle of an edge. At the second ply 
there are a total of 12 essentially dif- 
ferent positions, so with only seven 
spaces then remaining there will be an 
upper bound of 12 x 7! on the total 
number of terminal positions in the 
whole of the game tree. In practice the 
total will be somewhat less than this 
figure, since a number of paths will lead 
to a win for one side or the other, or a 
draw (i.e. a position in which every row, 
column and diagonal has at least one 
“0” and one “‘X”’ in it), before all nine 
elements of the 3 x 3 array have been 
filled. In order to play a perfect game 
of noughts and crosses with the crudest 
of evaluation functions, we could search 
the game tree exhaustively, using a score 
of +1 for a variation won by the pro- 
gram, —1 for a variation won by the 
opponent, and 0 for a draw. 

Most interesting two-person games 
have much larger trees than this: in 
chess there are roughly one million ter- 
minal positions in an average 4-ply 
search, in Go the figure would be ten 
thousand million fora 4-ply search at the 
start of the game. How can we cope 
with such gigantic combinatorial growth 
in our game trees? The answer lies in a 
refinement of the minimax method 
known as the alpha-beta algorithm. 


PRUNING BIG TREES 


Here in part three of the series, David Levy introduces a minimax refinement known 


as the alpha-beta algorithm. 


The alpha~beta 
algorithm 


The alpha-beta algorithm owes its power 
to the argument that if a player can 
choose from a number of moves, once 
he finds one move which serves his pur- 
pose he need not examine the remainder 
of the moves in that group. Let us look 
at a simple two-person game tree to 
illustrate this point (Fig. 1). 


Po (So) 


P, (S,) P,(S2) 


Mi, 
| ANOTHER THOUSAND 
; MOVES 

i 


P,, (8) Figure 1 


P12 (5) 


P21 (3) 


We shall assume that a program searches 
the tree from left to right, and thzt the 
evaluation function assigns scores of 8, 
5 and 3 respectively to the terminal 
nodes P, ,, P,;. and P,,. If the program 
is to move from position Po, it first 
considers move m, and then tries to 
decide what its opponent will do from 
position P,. The opponent may choose 
between scores of 8 and 5, and since we 
have adopted the convention that the 
opponent’s target is a low score, the 
opponent will choose position P; , with 
a score of 5. 

The program now knows that if it 
chooses m,, its opponent can prevent 


it from achieving a score of more than 
5. This value of 5 is therefore the value 
of position P, , assuming correct play by 
the opponent, and so the value 5 is 
assigned to S,. We call this process of 
assigning ‘values as the program back- 
tracks up the tree “‘backing-up”’. 

The score at S; is now backed up 
to So and the program then considers 
position P,, to determine whether it 
will prefer to play move m, or m,. It 
sees that from position P, its opponent 
can, if he wishes, move to P,, for a 
score of 3, and since 3 is better than 5 
from the opponent’s point of view, the 
program will wish to deny its opponent 
this option and it will not, therefore, 
choose move m,. It is completely irre- 
levant what the scores are for the 
thousand of unexamined brother nodes, 
Pr2, Pas, P21001, because the 
move m,; is already know to refute 
mz. Thus the program has determined 
that m, is better than m,, even though 
it has examined only 3 of the 1,002 
terminal nodes of the tree! 

Of course this particular example 
has been specifically designed to sell 
you the alpha-beta algorithm, and most 
game trees do not allow us to get away 
so lightly, but the savings achieved with 
this algorithm are certainly substantial 
enough to make alpha-beta an almost 
essential segment in any program that 
searches two person-game trees. The 
algorithm always chooses the same 
move that would be selected by the 
minimax algorithm, but usually in a 
fraction of the time. 

Since alpha-beta is so very important 
in game playing, I make no apologies 
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Figure 2 INITIALLY a =— ~ 
m, m1, 
P, (S, [8]) P, (S2 [6]) 
INITIALLY B=+ & INITIALLY 
B=+ = 
Mm), M2 mM), ™,, 
P,, Org. 18) 
INITIA 
Pir (Sii [a] ) Pi. (Sin [a]) P,, (S2, [a]) a=—0o 
INITIALLY a =-= INITIALLY a=— © INITIALLY a=— ~~ 
M11 M),}2 M2; M22 M1; Mm, > M21 M, >, 
Pi41 (8) Pi 12(7) Pini (9) Pin. (5) P,11 (3) P21. (2) P52; (2) P22 (1) 


for including another, more complex 
example (Fig. 2). This will show how 
the method words for a 3-ply tree and 
will illustrate why it has been given its 
strange name. 

Initially, all non-terminal nodes at 
even ply are assigned the value —” (qa). All 
non-terminal nodes at odd ply are 
assigned the value +e (@). As usual it 
is the program’s turn to move from the 
root position Py, and the program is 
trying to maximize the value of a. The 
Opponent moves from positions P,; and 
P,, trying to minimize the value of 8. 
The program moves from the positions 
at ply—2 (Faas Piz, Poi and P22), try- 
ing to maximize @. 

The tree search now proceeds as 
follows: 


1 Examine P,,,. The score of 8 is 
greater than —°° so a at S,, is set to 8. 
This score is then compared with 6 at 
S, and found to be less than +°°, so 
this value of B is also set to 8. In order 
to decide whether the program might 
be willing to play m,, this score of 8 
at S; is compared with —°o at Sp and 
found to be greater, so a at So is set to 


2 Examine P,,,. The score of 7 is less 
than a at S; ,, which is now 8, and since 
it is intended to maximize a, the value 
of a at S,, is not adjusted, and 
therefore the value of 6 at S, and that 
of a at So also remain unchanged. 


3 Examine P,,,. The score of 9 is 
greater than —°°, so a at S,. is set to 
9. This score is then compared with 6 
at S, and found to be greater, and since 
it is intended to minimize 6 the program 
can reject move m,,, Knowing that its 
Opponent can do better with move 
My 4% 


4 The left hand side of the tree has 
now been examined and the search 
proceeds to the comparison of the best 
score achieved so far (8) with whatever 
can be reached, assuming best play by 
both sides, if the program should 
choose m,. This part of the search com- 
mences with an examination of P,,,, 
which is found to have a score of 3. This 
is compared with a at S,, and found to 
be greater, and since it is intended to 


22 APC 


Po (So [a] ) 


maximize q@ the program will set this 
value of a to 3. 


5 Examine P,,,. The score of 2 is less 
than 3, soa at S,, (currently 3) is left 
unchanged, since it is intended to maxi- 
mize a. This score of 3 is then compared 
with B at S,, found to be lower, and 
since it is intended to minimize £ this 
value of B at S, is set to 3. Finally this 
value of 3 is compared with a at So 
(currently 8) and found to be lower. 
Since it is intended to maximize a, the 
program already knows that m, is 
inferior to m,, because playing m, is 
not consistent with maximizing a. 

The search is now over and it can be 
seen that only five of the eight terminal 
nodes needed to be examined. If you 
wish to verify the validity of this 
process by practical means, try assigning 
different sets of values to positions 
Pris, P56 4 and Po 49, and you will 
always find that the program prefers 
move m, to movem). 


How powerful is the 
alpha-~beta algorithm? 


During the past few years there has been 
considerable research into the question 
of just how big are the savings achieved 
using this algorithm rather than simple 
minimax. A full discussion of the theo- 
retical and practical results of this 
research is well beyond the scope of 
this series, but the studious reader will 
find this work well documented in the 
bibliographic references found at the 
conclusion of this article. What follows 
is a summary of the most important 
results, and a brief discussion of their 
significance. 

Monroe Newborn has _ investigated 
the power of the alpha-beta algorithm 
when searching game trees in which the 


Table 1 
2 
total terminal nodes 
2 4 3.67 
4 16 12.14 


-ply search 3-ply search 
expectation | total! terminal nodes expectation 
8 


moves within any group are examined 
in a random order. Table 1 shows, 
for various branching factors (b), the 
number of terminal nodes which we 
would expect a program to examine, 
using alpha-beta, in searches of 2 and 
3-ply. . 
lt will be seen that as the branching 
factor increases, so the proportion of 
nodes that can be ignored thanks to the 
alpha-beta algorithm also increases. And 
as the depth of search increases the 
effect of the algorithm is again 
increased. So the bigger the -tree 
becomes, the greater will be the savings 
using the alpha-beta method. 

The savings become even more dra- 
matic when the branches of the 
tree are examined in an_ intelligent 
order. In general it is true to say that 
within any group of moves the best one 
should be examined first, so that if the 
best one is not good enough we need 
not waste time in examining the second 
best, third best and inferior moves. If 
the tree is searched in such a way that 
the moves are examined in their optimal 
order, then the number of terminal 
nodes examined will be approximately 
2 xJ/ N, where N is the total number of 
terminal nodes on the tree. Thus, for 
a game of chess in which the branching 
factor is typically 36, the number of 
terminal nodes on the tree is 36° for 
a 4-ply tree. Yet by using the alpha-beta 
algorithm, if the tree is optimally 
ordered we need examine only 2 x 36 
terminal nodes before we find the best 
move from the root of the tree, a saving 
of well over 99% when compared with 
the simple minimax method. 

Taking the figures from Newborn’s 
results quoted above, we can compare 
the expected number of nodes examin- 
ed with random ordering and the 
number of nodes examined with 
optimal ordering (Table 2). 

I hope that the reader is now con- 
vinced that for all two-person game trees, 
except the smallest of the small, alpha- 
beta is a must. The most important 
implication of these results is that 
if it is at all possible, you should gene- 
rate and/or examine the moves within 
any group or family in such a way as 
to take maximum advantage of the sav- 
ings that can be achieved, and this 
means ordering the search in some way. 
We shall discuss various techniques for 
speeding up the alpha-beta search in 
our next month’s article, but one 
obvious method can be mentioned here. 
First, generate all the moves at the root 
of the tree, m,; m, ... etc., and evalu- 
ate the resulting positions with the 
evaluation function. Sort the moves 
so that the move with the highest score 
will be examined first, then the move 
with the next highest, and so on. 

Next look at the first position on the 
list and generate its successor positions. 
These are assigned scores using the 
evaluation function and they are then 
sorted, this time with the lowest scored 


6.84 
64 40.11 

220.37 
1214.45 


position coming at the top of the list 
and the highest scored position at the 
bottom. (This is because the program’s 
opponent is trying to minimize the 
score.) 

This process is repeated all the way 
down the tree, except for the terminal 
nodes, which are not sorted. Now, when 
searching the tree with the alpha-beta 
algorithm, the tree will be found to be 
much nearer an optimally sorted tree 
than if this process had not been 
applied. One disadvantage of this 
method, however, is that it requires us 
to keep in memory all the successor 
nodes to each node on the principal 
variation, apart from the terminal 
nodes. So in a search of a chess tree, 
with 36 moves at each node, this 
method would require us to keep in 
memory: 

a the root node 
b 36 nodes at each level of look-ahead 
apart from the terminal node. 

In order to combat this problem we 
might try to find an extremely compact 
method of representing a position, but 
if this compactness results in a slowing 
down of the search process while each 
position is unravelled or created, much 
of the effect of the fast alpha-beta 
algorithm will be lost. Such problems 
require careful thought and it is often 
necessary to experiment before the best 
balance is achieved between representa- 
tion and optimality of search. 

Other useful techniques for exami- 
ning the moves in a sensible order can 
often be found by thinking a little 
about the nature of the game. Let us 


INDEPENDANT IMPORTER/ 
MANUFACTURER 


OHIO SCIENTIFIC COMPUTERS 
HARDWARE: 


1. MEMORY EXPANSION BOARD, 8K. 
The Double sided Plated through the 
Board has 8K of wired sockets with driver 
and buffer 1.C.’s and R.F. filters. Add 
2114's as you require RAM. .KIT $120.00 
Fully assembled and tested, extra $ 15.00 
2. 4K RAM Memory Expansion Chips, 


ZVTH, ASORGs x os 3 )6 SB ee oles 2 $ 52.00 
3. R.F. Modulator, 5 to 9 Volt, all 
CHANNOE Sk ke wets se Bs $ 19.95 
4. SUPERBOARD II Cover/VDU 

Sth gh ad Sn WE oes ie om $ 18.95 


5. SUPERBOARD I! COMPUTER 


8K ROM,4K RAM.......... 9.00 
6. CHALLENGE C1P COMPUTER 
8K ROM,4K RAM.......... 89.00 


7. CHALLENGER C4P COMPUTER, 
Sound/Colour NTSC Colour. .... $946.20 
Available soon — P.A.L. conversions 

for 


*The approximation 2 xVN referred to above 
is made slightly more accurate by subtracting 
1. This is not important for very large trees 


consider once again the game of noughts 
and crosses. The elements of the 3 x 3 
array might be numbered as in the 
following diagram: 


1 2 8 
4 5 6 
y & 9 


A simple way to generate all the legal 
moves from any position is to look at 
the elements, starting with 1 and work- 
ing up to 9, and putting any empty 
space on the move list. But with a basic 
knowledge of the strategy of the game 
we can speed up the search process by 
looking first at element 5, then 1, 3, 
7 and 9, and finally at 2, 4, 6 and 8. 
This method of move generation takes 
no longer than 1, 2, 3, 4,... 9, yet it 
enables the alpha-beta algorithm to 
examine the moves in a more sensible 
order, thereby taking us closer to an 
optimal search process. 

Next month we shall examine a 
flow-chart for the alpha-beta algorithm 
and look at further ideas for speeding 
up the search process. 


SOFTWARE: 

We regret, PRICE RISE, due to shipping 
costs. All previous (54) advertised Cassette 
Software, up to $2.00. Instructions (14 sets), 
are still the same price. O1 is now replaced 
by an updated, and enlarged C1 at $2.95 


NEW PROGRAMMES 
for OHIO — SOFTWARE: 


UTILITIES: 


U.15. Dissassembler —4K .... $10.95 
U.16. Filename, for cassettes .. $ 8.95 
177. Treats oro oe ete $12.95 
U.18. Packer — (K saver). .... $14.95 
U.19. Cursor—= C2/4. 2s. $13.95 
INSTRUCTIONS: 

1.11. Dissassembled ROM, with 
Comment. .2.55 0% 3 Ge. $12.95 
1.12. 32x64 Character Display. . $12.95 
1.13. Wp 6502 Word Processor 

BOOK 30° eee eee wk $ 3.95 
1.14. Dissassembled ROM, with 

Inbuilt References ........ $13.95 
1.15.Sound—SIHI/CIP...... $ 6.95 
1.16. G.T. Conversion, X2.... $ 2.95 
1.17. Saving Data on Tape... . $ 6.95 
1.18. CIP Tape Control. ..... $ 6.95 
1.19. Ci? Geeperoc pei. $ 5.95 
1.20. CIP/Base 2 Printer ..... $ 6.95 
1.21. Morse Code Converter and 

Tape 2. ya ie ee a he $16.95 


1.22. 32x64 Character Supplement to 
112. 100% hardware Method. .. $ 4.95 


Table 2 2-ply search 


random optimal* random 
3 6.84 

7 40.11 

1S 220.37 

31 1214.45 


3-ply search 


but it has been done here for the sake of 
accuracy. 


Task for the month 


Write a program to play noughts 
and crosses, taking advantage of symme- 
try and employing the alpha-beta 
algorithm. Search the whole game 
tree using the primitive evaluation func- 
tion described above (+1 is a win for 
the program, —1 a win for the opponent 
and 0 a draw). 

Test the program (a) when the moves 
are generated in a random order; and (b) 
when the moves are generated in the 
order: centre, corners, middle of edges. 
The results should indicate a _ useful 
improvement with ordered search over 
random search. 
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BUSINESS: 
B.4. Savings and Loan Package . $14.95 
D.2. Flashboard, your advert . . $10.95 
GAMES: 
G.25. Alien Invaders (Like Space 
Invaders)............0- $ 8.95 
G.26. Orbital Lander. ...... $11.95 


G.27. Escape from Mars, 2 tapes $18.95 


G.28. Death Ship, 2 tapes .. . . $18.95 
G.29. Startrek. .......... $ 7.95 
G.30. Air Sea Battle ....... $ 8.95 


BOOKS/MAGAZINES/CATALOGUE 
T.1. The First Book of OSI ... $19.95 
T.2. Aardvark Journal (6 issue) . $12.95 
T.3. Basic Handbook, David Lien $15.95 
T.4. Personal Computing Monthly$ 1.95 
C.1. Catalogue describes all soft- 


ware and hints and free progs .. $ 2.95 
Postage: 
1 or 2 $1.00 3 —5 $1.50 
6—9 $2.00 10 or more $2.50 


All prices are subject to change without 
notice. 


All prices INCLUDE Sales Tax. 
More new lines of software available — 
enquire. 


MAIL ORDER: Check or Bankcard 

Looky Video, P.O. Box 347, Richmond, 
3121. Victoria. 

Shop: 418 Bridge Road, Richmond, Phone 


(03) 429 5674 Tx 
(J) bankcard 


PLOTTING IN 


THREE DIMENSIONS 


Malcolm Banthorpe offers a simple program for evolving three dimensional representations of 
trigonometrical and other functions on any computer which can plot graphics to a reasonable degree of 
resolution. The program listing shown is written for an ITT 2020, but can be used on many 
other computers with very little modification. 


The program originally evolved out of 
an investigation into possible means of 
representing three dimensional curved 
surfaces on a VDU. A wide variety of 
functions can be plotted as long as their 
range of values is restricted, as descibed 
later. The results are soy liana surpris- 
ing (at least to a non-mathemetician like 
me), sometimes beautiful (having an 
almost organic form) and nearly always 
interesting. 

To understand how the program 
works, imagine a disc (Fig. 1) crossed by 
a series of parallel chords. If the disc is 

viewed obliquely it can be represented 
- in two dimensions by an ellipse (Fig. 2). 
The vertical displacement f of point P 
from the chord AB is a function of the 
distance r of the point Q (which lies on 
AB) from the centre of the disc. Now (if 
you’re still with me), imagine a series of 
such points plotted along each chord, f 
always being a function of r, e.g. f = sin 
(r). The result would be a family of over- 
lapping curves. The program determines 
whether or not each point would be 
visible if we were actually viewing a 
three dimensional surface. Reference to 
the photographs should help to clarify 
how this actually works out in practice. 
As you can see, the program uses a 
series of curves parallel to the frontmost 
half of the circumference of the disc 
rather than a series of chords. This sim- 
plifies the programming and gives an 
arguably better display. 

If you’ve been able to follow the ex- 
planation so far, the program listing 


Figure 1 
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should be more or less self-explanatory. 
The function to be plotted is written as 
line 80 and can be changed as required. 
Line 75 ensures that R will always lie 


80 F=(R—1)*SIN(R*12) 


somewhere in the range 0 to 1. Care 
should be taken so that F will evaluate 
within the range -1 to 1 as R varies from 
0 to 1. 


Notes for use on 
other computers 


The program has been written as far as 

possible in ‘standard’ BASIC. The only 

possibly unfamiliar terms are as follows: 

HGR sets high resolution graphics mode 

HOME clears the four line text area of 
the screen 

HCOLOR = 38 sets the plotting colour to 


white 
VTAB (24): List 80 prints the function 
being plotted, at the bottom of the 
screen. (This may be omitted, parti- 


ed 


cularly if resolution is limited,so that 

the whole screen can be used for 

plotting.) 
HPLOT is equivalent to PLOT or SET in 
other versions of BASIC. On computers 
lacking such a function, it will be neces- 
sary to write a routine to POKE a char- 
acter to the appropriate screen location. 

H and V in line 10 must be set to the 
horizontal and vertical resolutions of 
the system. Hence to run the program 
on an Apple II the only modification 
required is to set H to 279 in line 10. 

As mentioned earlier, the program 
can run on many different computers 
but obviously the higher the resolution 
of the graphics, the better the display. A 
TRS-80 should give worthwhile results 
and tests with ITT’s low resolution mode 
(40 x 40) have indicated that PET should 
also be suitable for experimentation, 
particularly if a ‘double density’ (80 x 
50) routine can be employed. On lower 
resolution systems best results will be 
obtained plotting simple curve func- 
tions. 

Line 105 assumes that the point 
with coordinates 0,0 is at the top left 
hand corner of the screen. If, as on 
some systems, it is at the bottom left- 
hand corner then line 105 should be 
changed to: 

105M=Y: Y=Y1+Y 

This will prevent the image from being 
‘upside down’. However, as the surface 
displayed has no objective reality out- 
side the computer, the question of just 
which side should be ‘up’ is open to 
debate. Have fun...and I’d be inter- 
ested to see the results of any further 
*xperimentation. 


MONITOR FUEL CONSUMPTION 
CONSTANTLY 


REM THREE-DIMENSIONAL PLOTTER 
REM COPYRIGHT MALCOLM BANTHORPE 1980 
REM 

HGR: HOME: HCOLOR = 3: H = 359: V = 159 
VTAB(24): LIST 80 

X1=H/ 2: X2=X1 *X1: Y1=V/2: Y2=V/4 
FOR X=0TO X1. 

X4=X*X:M=—Y1 

A =SQR ( X2 —X4) 

FOR I =—A TO A STEP'V / 10 
R=SQR(X4+I1*I)/X1 

F=(R—1) *SIN(R*12) 

Y=1/5+F* Y2 

IF Y <=M THEN 120 

M=Y:Y=Y1-—Y 

HPLOT X1 — X, Y: HPLOT X1+ X,Y 

NEXT I : NEXT X 

END 


with the ZEMCO 28, the 
latest on-board computer 
from the manufacturers of 


the CompuCruise. 


A true, programmable computer, calibrated to 


your vehicle, giving information on fuel usage, 


fuel remaining, time and distance to go until For further information on the ZEMCO 
range of on-board computers, and the 


empty, time on trip, distance travelled and fuel nene Gt your nedteat dealet, call.or writs 
used on trip, and more. Easy, push button oper- eis 
ation, quick, simple installation. 


ANTELOPE ENGINEERING 
P.O. Box No. 27 
r MILSONS POINT, N.S.W. 2061 PTY. LTD., 
[.] CompuCruise g 68 Alfred Street, Milsons Point, N.S.W. 2061 


§ YES, please send me further information on [-] Zemco 28 


My name is Phone: (02) 929 4033 Telex: 24432 


and | live at 


To: Antelope Engineering Pry. Ltd. 


tan cemteelenr ater lew teloraher epee lontent elon tae Total 
f 


| Do it today, for more information at your 


Post Cod 
en one figertips than you have ever had before. 


GER Ge GED GED GEE GE GEE) ES GO GE GED 25 Ge GES GE GED GED Cans GS Ge Ga ams a=, 
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THE VERSATILE ONE © 


COMMODORE BUSINESS SYSTEMS WITH THE ANSWER TO YOUR PROBLEM. 


DEBTORS 

STOCK CONTROL 

INTEGRATED DEBTORS / STOCK CONTROL 
COST ESTIMATION 

GENERAL / CREDITOR / DEBTOR LEDGER 
WORD PROCESSING 

PRICE LISTS 

RANDOM SORT 

PLANNING 

REAL ESTATE RENT ROLE 


FOR SYSTEM DESIGN AT A REALISTIC PRICE CONTACT :— 


THE COMMODORE COMPUTER CENTRE 


TCR COMP B.S. MICROCOMP, 
3 Ath floor, 
5 bankcard it 561 Bourke Street, 


MELBOURNE, 3000. 
Tel: 614 1433 / 614 1551 


welcome here MICROCOMPUTER SYSTEMS DESIGNERS 


, ADE = —‘THE PROFESSIONAL’S CHOICE 


earner! 
COMPUCOLOR II MICROLINE 80 


SPECIFICATIONS APPLICATIONS SPECIFICATIONS 


— Integral Mini Disk Drive Standard — 80 cps 9 x 7 dot matrix 
i i ‘ —P 
eee i x 928 grid Small accounting or business systems —_ ibaa aia = 
Eight colours (foreground and background) ee — 80-132 column printing 
Up to 32 K/B user memory g — 200,000,000 ch. head life 
— 8080 assembler available — full96 ch ASC II Set 


Education: Programmed learning 


DEALER ANDERSON DIGITAL EQUIPMENT PTY. LTD. 


ENQUIRIES 
WELCOME THE VIABLE ALTERNATIVE 


P.O. Box 322, MT°WAVERLEY, VIC. AUST. 3149 Phone (03) 543 2077, P.O. Box 341, Thornleigh, N.S.W. AUST. 2120 
Phone (02) 848 8533. Adelaide: 79 9211. Perth: 3255722. Hobart: 34 4522. Brisbane: 350 2611. Darwin: 81 5760. 
Canberra: 58 1811. Newcastle: 69 1625. Albury/Wodonga: (062) 2761. Barnawartha 129. N.Z. Wellington: 693 007. 
Auckland: 876570. Christchurch: 79 6210. New Guinea !_ae: 42 3924. 
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10 PART 
PASCAL 
SERIES 


PASCAL 


THE COMPLETE 


BY SUE EISENBACH AND CHRIS SADLER 
CHAPTER 3 CONTROL STRUCTURES: 


1.LOOPS 


In the last chapter, the procedure was presented as a means of performing the repetitive tasks so often 
required in computer programming. Thus program WALKING executed in “‘steps”’ 

LEFT and RIGHT alternately by successive calls to the procedures of those names. Some programs 
however have to repeat their procedures a large number of times, the precise figure often 
depending on conditions arising within the data or during the calculation, and hence not known in 
advance. In order to deal with these requirements, a programming device known as 


The function of the loop is to cause the 
execution of certain lines of code (the 
body) a certain number of times. Dif- 
ferent types of loop may be distingui- 
shed by the way in which they decide 
how many repetitions (or iterations) 
are required. The process of deciding 
whether to repeat the body of the loop 
one more time or to continue with the 
rest of the program is called a fest. 
Every loop therefore consists of a body 
and a test and is known as a control 
structure because it causes the program 
control or “flow” to differ from the 
normal sequential execution of pro- 
gram statements. 

The most elementary type of loop 
is designed to execute the body a pre- 
defined number of times. This opera- 
tion is controlled by an_ explicit 
counter variable and the test consists 
of comparing the value of the counter 
with the known finishing value. Depend- 
ing on the outcome of the test, the 
counter is incremented (or sometimes 
decremented) and the body is repeated, 
or else program control passes to the 
code immediately beyond the loop. 

In BASIC this structure is known as 
a FOR-NEXT loop and PASCAL has an 
equivalent called the FOR-DO loop. In 
addition, PASCAL has two loops for 
executing the body an unknown (or at 
least uncalculated) number of times. 
Here the test will depend on conditions 
arising within the body and a counter, 
if used at all, is not an explicit part of 
the loop. In the WHILE-DO loop, the 
test is made before the body is com- 
menced whereas in the REPEAT-UNTIL 
loop, the test comes right at the end of 
the body. In the next few sections each 
of the above will be described, defined 
and exemplified in programs. 

The body of a loop consists of either 
a single statement (now expanded to 
include the compound statement, as 
in the syntax diagram in Box 1) or in 
certain cases, a sequence of statements. 


the loop exists in almost all languages. 


When laying out a program it is normal 
to indent the code between every 
BEGIN-END pair. When the body of a 
loop does not contain a BEGIN-END 
pair, however, by convention it is 
indented anyway, to emphasize that it 
is controlled within a loop. 


The FOR-DO Loop 
Program ROLLOVER in Box 2 illustra- 
tes a FOR-DO loop in a fairly typical 


procedure 


° ° ge 


identifier 


COMPOUND STATEMENT 


context. Procedure RESTOFVERSE 
contains the parts of the song which are 
repeated in each verse. The loop, set up 
in line 11, ensures that the part that 
changes (CROWDS) is correct for each 
verse. This requires the _ special 
DOWNTO reserved word to make the 
counter work backwards. Lines 13 and 
14 actually produce each verse and line 
15 sends the program control back to 
line 11 for the next verse — and so on. 
Line 16 finishes off the song. Lines 12 


expression 
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FROGRAM ROLLOVER + 

VAR CROWDS: INTEGER 3 

PROCEDURE RESTOFVERSE + 

BEGIN 
WRITELN( ’ 
WRITELN(’’’ROLLOVER?» 


IN A BED AND 


ROLLOVER’ ’’) 


WRITELN 
END » (xXRESTOFVERSEX) 
BEGIN (XMAIN FROGRAMX) 
FOR CROWDS:=10 DOWNTO 2 DO 


WON AOS WN Fe 


BEGIN 
WRITE(’THERE WERE 
RESTOF VERSE 

ENT 3 


y CROWDS) 35 


“ROLLOVER: ROLLOVER’ 


S 
variable 


FOR-DO LOOP 


to 15 provide an example of a com- 
ound statement. Finally, note 
PASCAL’s solution to the problem of 
printing a mark. Since tne quote (’) 
is the text delimiter, the PASCAL 
compiler searches for pairs of quotes 
enclosing text. Two adjacent quotes 
will indicate that the text is not to be 
terminated but rather that a single 
quote is required for output. 

The syntax diagram in Box 3 shows 
the precise structure of the FOR-DO 
loop. The different components appear 
as: 

FOR (test) DO (body) 

The counter is a variable (not a REAL) 
and must therefore, like any other vari- 
able, be declared explicitly in the de- 
claration part. The starting and finishing 
expressions must be integer expressions. 
Because these expressions are evaluated 
before the loop commences, rather than 
during each iteration, there is no loss 
of efficiency in using quite complex 
expressions if required. 

The counter increases or decreases 
(depending on whether TO or 
DOWNTO, respectively, is used) by 1 
on each iteration. The restriction of the 
step size creates a loop-test requiring 
a minimal number of machine-code 
instructions. If a different step size is 
required, a “dummy” counter can be 
constructed within the body of the 
loop, but on no account should the 
value of the actual counter be changed 
inside the loop (for obvious reasons). 
The FOR-DO loop test will discon- 
tinue the loop when the value of the 
counter moves beyond the finishing 
value (in the indicated direction). This 
ensures not only that the body is exe- 
cuted the correct number of times, but 
also, if the counter is accidently set up 
to move away from the finishing value, 
the body of the loop will be skipped 
over entirely. 

When the loop has finished the 
counter variable loses any value it had 
(i.e. it becomes undefined). This feature 
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expression 


THE LITTLE ONE SAID’) 3+ 
’ 


WRITELN(’SO THEY ALL ROLLED OVER AND ONE FELL OUT.’) 3 

WRITELN(’THERE WAS 1 IN THE BED AND HE SAID ’’GOODNIGHT’’.“) 

ND 
THERE WERE 10 IN A BED AND THE LITTLE ONE SAID 

E 

SO THEY ALL ROLLED OVER AND ONE FELL OUT. 
THERE WERE 9 IN A BED AND THE LITTLE ONE SAID 
THERE WAS ONE IN A BED ANDI HE SAID ’GOODNIGHT’. PROGRAM ROLLOVER 


pend 
DOWNTO 


oo) Liner 


is included in PASCAL as a safety mea- 
sure to guard against the tendency of 
some programmers to re-use a loop 
counter at a later stage of the program, 
without assigning a new value to it. 


EXERCISE: 
Write a program to print out the song 
“Ten Green Bottles’. 


The Generalized Loop 


Circumstances can often arise in pro- 
gramming where the use of a fixed- 
limit FOR-DO loop is too restrictive 
to allow for a fluent program style. As 
an example consider the. problem of 
entering a list of numbers from a key- 
board into a program. If you don’t want 
to count how many numbers there are 
before you start, you need to have a 
way of telling the program when the 
list has come to an end. This is usually 
done with a ‘“‘rogue” value — a number 
which couldn’t possible be a part of the 
list (eg. -9999). When the program 
detects the rogue value, this is an indi- 
cation that the input list is complete 
and further processing can continue. 

It would be nice to place the item- 
by-item reading of such a list in a loop, 
but if the length of the list is unknown, 
then the only way of doing this with a 
FOR-DO loop leads to awkward and 
error-prone code. Because circumstan- 
ces such as this arise quite frequently, 
PASCAL has a more generalized loop 
form. 

The distinguishing feature of the 
generalized loop lies in the nature of its 
test. Instead of a steady incrementation 
of a counter, the test checks the validity 
of some relationship which is (presum- 
ably) affected by the body of the loop. 
When the relationship holds, one course 
of action is taken and when events 
within the loop cause the relationship 
to change, a different course of action 
is embarked upon. Quite clearly, only 
two possibilities exist — the relationship 
holds or it doesn’t (i.e. it is true or 


false). Such a relationship is called a 


Boolean expression after the English 


mathematician George Boole who first 
studied the algebra of such expressions. 

The syntax diagram in Box 4 fully 
defines the Boolean expression. Note 
that <> stands for ‘“‘is not equal to’. 
Consider a Boolean expression like 
A=B. This expresses the relationship 
‘‘A is equal to B” and the = is known 
as a relational operator as are all the 
other symbols shown in Box 4. Com- 
pare this with the assignment state- 
ment A:=B which reads “‘A becomes 
equal to B’’. Here := is an assignment 
operator and it is this distinction 
which enables one to write X:=X+1 ina 
program where it would make no sense 
as an equation. 

PASCAL provides two versions of 
the generalized loop. In the first, the 
WHILE-DO loop, the test is made 
before the body is commenced, and 
iteration occurs as long as the Boolean 
expression is true. If the expression is 
false when the program first encount- 
ers the loop, the entire loop will be 
skipped. The syntax diagram in Box 0 
defines a WHILE-DO loop. As with 
a FOR-DO loop, the body is a single 
statement, generally compound. 

The program in Box 6 illustrates the 
use of a WHILE-DO loop, which runs 
from lines 10 to 15, line 10 containing 
the test and the rest comprising the 
body. While this is not a very practical 
sort of guessing game, it does show the 
unlimited nature of the loop which will 
go on asking for new guesses until the 
right number turns up. It also shows the 
major danger of the generalized loop — 
suppose the test never fails? The pro- 
gram will stay in the loop forever. For 
instance, suppose TARGET was 16 
while CORRECT and GUESS were 
REAL instead of INTEGER, and 
CORRECT became 3.99999 (as often 
happens). Any integer value guessed 
could never pass the test. This can 
happen quite easily especially when 
dealing with the mathematical functions 
with which rounding errors are associa- 
ted. Consequently, it is good program- 
ming practice to check explicitly for 
realisable loop tests. 

Examples of mathematical functions 
appear in line 6. SQRT(A) is a REAL 
value representing J A while TRUNC(B) 
is the largest integer less than B (when 
B is positive). In line 6 the above func- 
tions are nested so that CORRECT is 
the square-root of the largest perfect 
square less than TARGET. A list of 
all mathematical or standard functions 
available in PASCAL appears in the 
Look-Up Table at the end of this 


chapter. 
The second generalized loop in 
PASCAL is the REPEAT-UNTIL 


loop defined in Box 7. The test comes 
at the end of the body and iteration 
occurs as long as the condition is false. 
PASCAL has two complementary loops 
to allow for a fluent programming style. 
Sometimes it will seem more natural 
to use a WHILE-DO loop and sometimes 
a REPEAT-UNTIL will suggest itself. In 
the latter case however, the body will be 
executed at least once, whatever state 
the Boolean expression is in, because 
the test comes after the body. Program 
ANOTHERGO in Box 8 illustrates the 
use of a REPEAT-UNTIL loop running 
from lines 22 to 26. Line 26 contains 
the test and the body lies above it. 

The REPEAT-UNTIL loop has 
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reserved words which __ effectively 
bracket the body of the loop. This is 
not the case with the other two loops 
where the reserved word DO merely 
leads up to the beginning of the body. 
The PASCAL compiler needs to know 
where the loop body stops and the rest 
of the program begins. It is for this rea- 
son that the two DO loops restrict the 
programmer to a body consisting of a 
single statement (usually compound). 
Without the DO keyword possessed 
by the other loops, the REPEAT- 
UNTIL loop can contain more than 
one statement in its body (cf. syntax 
diagrams for the different loops). This 
means that one tends not to find 
BEGIN-END pairs following a REPEAT 
although the indentation convention is 
observed nonetheless. 

The program from Box 6 has been 
converted into a _ procedure for 
ANOTHERGO. This is a sensible way 
to develop programs — writing a small, 
self-contained section as a _ separate 
program, testing it, and then incor- 
porating it as a procedure in some larger 
program. This theme will be developed 
in more detail in the next section. 
Finally, line 2 introduces a new data 
type, the character type CHAR which 
consists of a single letter of the alpha- 
bet, digit or normal keyboard punctua- 
tion mark. The variable ANSWER can 
contain any one of these characters and 
can be compared with actual characters 
enclosed in ‘quotes’ as in line 26 Vari- 
ables therefore can be declared as 
INTEGER, REAL or CHAR. 

Each of the three control structures 
defined above is an extension of the 
definition of a statement, since it 
appears in the action part of a program. 
Consequently a complete syntax dia- 
gram for the statement must incorpor- 
ate all of these, and this is shown in 
Box 9. 


EXERCISE: 

Computers (and calculators) are often 
tested for accuracy by computing a 
range of nested mutually inverse func- 
tions [eg. exp (In[x]) = x]. 

Write a program fo input a sequence of 
(positive) numbers (rogue values could 
be O or less), in each case -ealculating 
exp (In[x]) and outputting this value, 
together with x and the difference be- 
tween them before reading in the next 
one 


Using Loops 


As an everyday application of the use of 
loops, consider the construction of a 
mortgage repayment table. These are 
normally constructed by actuaries from 
formulae which give the monthly 
payment incurred by a loan assuming a 
fixed interest rate and where repayment 
occurs over a fixed time period. 

This reputedly boring occupation 
seems ideally suited for rendering into 
machine soluble form, releasing the 
actuary for more valuable tasks (like 
estimating the insurance risks on a 
personal computer). Instead of employ- 
ing the actuarial formula, however, the 
problem will be used to illustrate a 
common programming technique which 
consists of taking a guess at the likely 
value, working out the implications, 
comparing the results with the required 
outcome, improving the guess, working 
out the implications again, and repeat- 
ing this process until an acceptable 


expression 


expression 


BOOLEAN EXPRESSION 


Boolean 
cr Go 


WHILE-:DO LOOP 


1 FROGRAM PERFECTSQUARE 3 
2 VAR CORRECT» GUESS» TARGET: INTEGER + G) 
3 REGIN 
4 WRITE(’TYFE IN YOUR TARGET NUMEBER:~’) 3+ 
S READLN( TARGET) + 
6 CORRECT?$=TRUNC(SQRT(CTARGET)) 3¢ 
7 WRITE(’NOW GUESS THE LARGEST INTEGER YOU THINK HAS A SQUARE ‘%» 
8 ‘NOT LARGER THAN ’» TARGET: ’3-%) 3 
9 READLN(GUESS) 35 
10 WHILE GUESS*<>CORRECT 20 
5 BEGIN 
12 WRITELN(’NO THAT GIVES ’,» GUESSXGUESS) » 
13 WRITE(’SO GUESS AGAIN:- 7%) + 
14 READLN( GUESS) 
15 END 3+ 
16 WRITELN(’GOOD ’» GUESS» ’ HAS THE LARGEST FERFECT SQUARE ‘» 
17 ‘ NOT LARGER THAN ’» TARGET?’.%) 
18 END , (xXPERFECTSQUAREX) 
19 TYPE IN YOUR TARGET NUMBER:- 59 
20 NOW GUESS THE LARGEST INTEGER YOU THINK HAS A SQUARE NOT LARGER THAN 59%- 6 
21 NO THAT GIVES 36 
22 SO GUESS AGAIN:- 7 
23 GOOD 7 HAS THE LARGEST FERFECT SQUARE NOT LARGER THAN 59. 
PROGRAM PERFECT SQUARE 


Boolean Expression 


REPEAT-UNTIL LOOP 


1 FROGRAM ANOTHERGO + 
2 VAR ANSWER? CHAR 3» PROGRAM ANOTHERGO 
3 FROCEIURE FERFECTSQUARE + 
4 VAR CORRECT, GUESS» TARGET: INTEGER + 
ba BEGIN 
6 WRITE( ‘TYPE IN YOUR TARGET NUMBER;~’) % 
7 READILN( TARGET) +» 
8 CORRECT$=TRUNC(SQRT(TARGET)) » 
v4 WRITE(’NOW GUESS THE LARGEST INTEGER YOU THINK HAS A SQUARE “» 
10 “NOT LARGER THAN ‘+ TARGET ‘’3-’%) 5 
11 REALDILN(GUESS) 3% 
12 WHILE GUESS<=CORRECT D0 
13 BEGIN 
14 WRITELN(’NO THAT GIVES ’» GUESSXGUESS) 3 
15 WRITE(’SO GUESS AGAINi- ’) + 
16 READLN( GUESS) 
17 END 3 
18 WRITELN(’GOOD ’» GUESS» ’ HAS THE LARGEST FERFECT SQUARE ‘» 
19 ‘ NOT LARGER THAN ‘yy TARGET?’.%) 
20 END 5 (xXPERFECTSQUAREX) 
2i BEGIN (XMAIN FROGRAMX) 
22 REPEAT 
23 FERFECTSQUARE 3 
24 WRITE(’DO YOU WANT TO TRY ANOTHER TARGET? “%) 3 
29 READLN (ANSWER) 
26 UNTIL ANSWER=’N’ 
ae END. 
28 TYFE IN YOUR TARGET NUMBER:~- 44 
2? NOW GUESS THE LARGEST INTEGER YOU THINK HAS A SQUARE NOT LARGER THAN 443- 
30 Goor & HAS THE LARGEST FERFECT SQUARE NOT LARGER THAN 44. 
31 DO YOU WANT TO TRY ANOTHER TARGET? N 
answer is reached. Clearly, the loop 9g) 


provides a means of programming such 
an iterative solution — although it’s 
unlikely to tempt any actuaries away 
from their formulae! 

The approach we shall take in pro- 
gramming this problem is known as 
“Top-Down Design”. The Top-Down 
designer begins by explicitly defining 
the problem, stating what results are 
expected from what initial information. 
The task is then coded by calling several 
procedures, each a distinct subtask or 
module which contributes to the solu- 
tion of the total problem. Any 
consideration of the detail of these 


Statement 
(Box 1) 
FOR-DO loop 
(Box 3) 
WHILE-DO loop 
(Box 5) 
REPEAT-UNTIL loop 
(Box 7) 
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PROGRAM REPAYMENTS 3. 

VAR MIN, MAX, LOAN, REPAY: INTEGER 3} 

PROCEDURE GETINPUTS ; 

(*READ IN INTEREST RATE, NUMBER OF YEARS, 
MINIMU“4 AND MAXIMUM LOANS#) 
PROCEDURE PRINTHEADINGS 3 
C*PRINT OUT INTEREST RATE, NUMBER OF YEARS 
AND TABLE HEADINGS-1.E.LOAN & REPAYMENTS#*#) 
PROCEDURE CALCULATEREPAY 3 
(#WORK OUT MONTHLY REPAYMENTS#) 

BEGIN (*MAIN PROGRA4*) 
GETINPUTS ; 
PRINTHEADING ; 
LOANS2MIN 3 
WHILE LOAN<=MAX DO 
BEGIN 

CALCULATEREPAY ; 
WRITELN(LOAN, ' 
LOANS=LOAN ¢ 103030 


', REPAY) 3 


EN 
END. (*REPAYMENTS*) 


PROCEDURE CALCULATEREPAY 3 
VAR TOTALMONTHS: INTEGER 3; 
MONTHLYINTERESTRATEs AMOUNTDUE: REAL ; 
PROCEDURE TRYREPAY 3 
¢*WORK OUT THE ACTUAL AMOUNT A GIVEN REPAYMENT 
WILL ACTUALLY PAY OFF*®) 
BEGIN 
MONTHLYINTERESTRATE: =INTERESTRATE/12 3 
TOTALMONTHS:=12*YEARS 3 
REPAY:=LOAN DIV TOTALMONTHS 3 
REPEAT 
AMOUNTDUE:2LOAN 3 
REPAY: REPAY + 1! 3 
TRYREPAY 
UNTIL AMOUNTDUE<=@ 
END 3; ¢(*CALCULATEREPAY* ) 


PROCEDURE TRYREPAY 3 
¢*WORK OUT THE ACTUAL AMOUNT A GIVEN REPAYMENT 
WILL ACTUALLY PAY OFF*) 
VAR MONTH: INTEGER 3; 
BEGIN (*CALCULATEREPAY* ) 
FOR MONTH:=! TO TOTALMONTHS DO 


PROGRAM REPAYMENTS — FIRST ATTEMPT 


AMOUNTDUE: =(€ AMOUNTDUE-REPAY)*(€1 + MONTHLY INTERESTRATE) 


END 3 (*TRYREPAY*) 


PROCEDURE GETINPUTS 3 

CONST IMIN=2 3 IMAX=5@ 3 
YMIN=5 3 YMAX=35 3 
LMIN=5 3; LMAX=20@8 3; 

PROCEDURE GETINTEREST 3 


PROCEDURE TRYREPAY 


(*READS IN INTEREST RATE BETWEEN IMIN AND IMAX. AND 


CONVERTS IT TO:A DECIMAL*) 
PROCEDURE GETYEARS 3 


(*READS IN DURATION OF LOAN BETWEEN YMIN AND YMAX YEARS*®) 


PROCEDURE GETMIN 3 
(*READS INs 
LMIN AND LMAX AND CONVERTS IT TO DOLLARS *) 
PROCEDURE GETMAX 3 
(*LIKE GETMIN» BUT FOR THE MAXIMAL LOAN VALUE*) 
63 BEGIN (*GETINPUTS*) 
64 GETINTEREST 3 
65 GETYEARS 3; 
66 GETMIN 3; 
67 GETMAX 
68 END ; (*GETINPUTS*) 


PROCEDURE GETINTEREST 3 


IN THOUSANDSs THE MINIMUM LOAN VALUE BETWEEN 


PROCEDURE GETINPUTS 


(*READS IN INTEREST RATE BETWEEN IMIN AND IMAX AND 


CONVERTS IT TO-A DECIMAL*®) 
BEGIN 
WRITELN (°TYPE IN THE RATE OF INTEREST AS A PERCENTAGE. 
REPEAT 
WRITE €'A NUMBER BETWEEN’, 
READLN CINTERESTRATE) 
UNTIL CINTERESTRATE>=IMIN) AND CINTERESTRATE<=IMAX) 3 
INTERESTRATE := INTERESTRATE/I@@ 3 (* % -> DECIMAL *) 
END (*GETINTEREST*) 35 


IMIN» ° AND‘s IMAXs ‘3-° ) 


PROCEDURE GETYEARS 3 


"> 3 


° 
> 


(*READS IN DURATION OF LOAN BETWEEN YMIN AND YMAX YEARS#) 


BEGIN 


WRITELN (‘TYPE IN NUMBER OF YEARS FOR WHICH MORTGAGE WILL RUN. ') 


REPEAT 
WRITE ¢€°A NUMBER BETWEEN’. YMINs 
READLN (YEARS) 
UNTIL CYEARS>=YMIN) AND (CYEARS<=YMAX) 
END; (*GETYEARS*) 


* AND's YMAXs ‘':-'") 


PROCEDURE GETMIN 3 
€*READS IN, 
LMIN AND LMAX AND CONVERTS IT TO DOLLARS*) 
VAR LOANMIN : INTEGER 3 
BEGIN 


° 
a 


IN THOUSANDS, THE MINIMUM LOAN VALUE BETWEEN 


WRITELNC'TYPE IN THE SMALLEST MORTGAGE YOU ARE INTERESTED IN, ‘, 


*IN THOUSANDS.") 3 
REPEAT 
WRITE ('A NUMBER BETWEEN's LMINs 
READLN CLOANMIN) 
UNTIL (LOANMIN>=LMIN) AND CLOANMIN<=LMAX)3 
MIN := LOANMIN* 1000 
END (*GETMIN*) 3 


‘ AND's LMAXs ‘3:-'") 


PROCEDURE GETMAX 3 

(*LIKE GETMINs BUT FOR THE MAXIMAL LOAN VALUE*) 
VAR LOANMAX : INTEGER 3 
BEGIN . 


° 
a 


WRITELN (‘TYPE IN THE LARGEST MORTGAGE YOU ARE INTERESTED INs 


‘IN THOUSANDS. ') 3 
REPEAT 
WRITE €°A NUMBER BETWEEN’. MIN DIV 1608, 
READLN (LOANMAX) 
UNTIL CLOANMAX>MIN DIV 1880) AND CLOANMAX<=#LMAX) 3 
MAX := LOANMAX* 1868 
END (*GETMAX*) 3 


* AND's LMAX, 


"s=") > 


PROCEDURES GETINTEREST ETC. 


(4) Ld 


modules is deferred to a later stage of 
the design. In due course, each module 
will undergo the same treatment and 
thus the problem devolves into a hierar- 
chy of more-or-less independent sub- 
problems until a level is reached at 
which only elementary programming 
functions are required. At this point 
the final coding can be done quickly 
and accurately, and the result should be 
a well-structured program. 

Returning to the mortgage table 
program, the problem definition could 
be: 

Given the interest rate and a time 
period for repayment, create a table 
showing the monthly payment due over 
a given range of loans. 

The input data required is therefore: 
1. interest rate (% p.a.) 

2. repayment period (years) 

3. maximum and minimum 
required (thousands of dollars.) 


The output should be a list of loans 
from minimum to maximum in steps of 


$1000, showing monthly repayments. 
The interest rate and repayment period 
should also be displayed. 

The next stage is to decide on the 
method of solution in order to code the 
main program. At this level the tasks 
that must be accomplished include read- 
ing in the user’s parameters, printing out 
the appropriate headings and, for each 
loan from the minimum to the maxi- 
mum requested, calculating and printing 
the repayment amount. At this stage, 
the means by which the calculations are 
to be performed do not concern us and 
neither are we interested in the details 
of getting the input data or printing 
out the heading. The calculations will 
have to be performed in a loop which 
will stop when the maximum loan value 
is reached. In Box 10, we have called 
procedures named GETINPUTS and 
PRINTHEADINGS to handle the initial 
part of the problem, and introduced a 
WHILE-DO loop (lines 15 - 20) to 
control the calculation and output of 
the table. Procedure CALCULATERE- 
PAY will actually perform the calcula- 
tions. 

The declaration part of this first 
attempt includes all identifiers used in 
the main program. These include the 
integer variables MIN, MAX, LOAN 
and REPAY, together with the proce- 
dures GETINPUTS, PRINTHEADINGS 
and CALCULATEREPAY. Notice that 
these procedures have not been fully 
defined at this stage but merely con- 
tain a comment indicating what each 
will eventually do. 


EXERCISE: 

Try re-writing this first attempt with a 
FOR-DO loop instead of a WHILE- 
DO loop . 


We have now completed the highest 
level of the program design and are 
ready to proceed to the next level. 
The three procedures will be tackled 
in the same way that the whole pro- 
blem REPAYMENTS was approached. 
The question arises as to which of the 
three should be dealt with first. We 
prefer to start with the “‘Heart” of the 
problem — CALCULATEREPAY 


loans 


(Box 11). The problem definition of 


CALCULATEREPAY could be: 


Work out the monthly repayment as 
follows — first guess an obviously low 
value and calculate how much that 
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The One-stop Microcomputer Shop Providing 
a Total Service to TRS-80* and System 80 Users. 
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HARDWARE AND MODIFICATIONS 


Having system crashes? 
Plug in our line filter and get main-frame stability $ 55.00 


Use your TRS-80 as a telephone book and automatic 

dialler. No hardware mods required. All 

software included 59.50 
LIGHT PEN with demonstration software and full 
programming instructions.STILL ONL $ 19.50 
Lower case mod for ELECTRIC PENCIL and 

SCRIPSIT. Fitted and 90 day guarantee 49.95 


VIDEO STABILIZER CRYSTAL. Get professional 
stability on your VDU. CRYSTAL only $ 19.95 
Fitted and guaranteed 39.00 


16K MEMORY KITS $ 85.00 
We install $105.00 
RS-232 PRINTER DRIVER. Operates from cassette 

cable. Including software $ 


CISA DATA DIGITIZER. Our most popular 
hardware product. No hardware mods required. 
Reads and re-records tapes normally unreadable 
by any other method 


CASSETTE CABINET. Protect vour valuable 
cassettes in this strong, handsome 36 cassette 


DIGITAL CASSETTES — Top quality 


C15’s_ 1 — $1.65 
C20’s_ 1 — $1.85 
C30’s_ 1 — $1.99 


This is an entirely new product. We are so 
confident of this product that we are now 
recording all our commercial software on it. 


5%” PRIME QUALITY DISKETTES 
1 — $4.95 
All tracks guaranteed to load 


10 —$14.85 
10 — $16.85 
10 — $18.50 


10 — $45.00 


We are extending our range of computer paper and labels 
for the enthusiast and the business user. 


LATE SPECIAL! 


EXATRON STRINGY FLOPPIES .........--- 


P.O.A, 
77 Track Micropolis Drives complete with DOS. . . . .P.O.A. 


BOOKS 


We believe that we have the best and most comprehensive 
range of titles of interest to the TRS-80 owner/user. Over 
200 titles presently in stock. COME IN AND BROWSE 
AROUND! 


JUST A SELECTION 

First Book of Microcomputers 

Pascal with Style 

Basic with Style 

TRS-80 Disk and Other Mysteries 

Level II ROM Reference Manual 

Basic and the Personal Computer 

(highly recommended) 

Basic Programming for Scientists and Engineers. . . . 
The Incredible Secret Money Machine 

Z-80 Microcomputer Handbook 

Microcomputers for Business Applications 

Z-80 and 8080 Assembly Language Programming. . . 
How to Profit from your Personal Computer 

Little Book of Basic Style 

Microcomputer Interfacing 

Microcomputers and the 3 R’s 

(A Guide for Teachers) 


COMPUTER CLASSICS 

Wirth/ Algorithms + Data Structures = Programs .. . 
Tausworth/Standardized Development of Computer 
Software 

Vol. I — Methods 

Vol. II — Standards 

Klingman/Microprocessor Systems Design 
Gilmour/Business Systems Handbook 
Gane/Structured Systems Analysis 

Garrett/Analog Systems for Microprocessors 
Rhyne/Fundamentals of Digital Systems Design .. . 


TRS-8C AND SYSTEM 80 SOFTWARE 


Ecology Simulations 1 and 2 (disk and lower case) 
each 

Mission Impossible and Voodoo Castle (disk) 
Adventureland and Pirate Adventure (disk) 
Investment Analysis (disk or L2 cassette) 

Sargon II (cassette) 

Strategy Games (5) (cassette) 

Space Games (4) (cassette) 


5 Adventures (cassette) each 
Advanced Statistics (disk or cassette) 
U Boat (cassette) 

Basic Monitor (cassette) 
Micromazing (games cassette) 

RPN Calculator (cassette) 

PLUS MANY MORE 


We stock and highly recommend all RACET COMPUTES 
professional standard system programs. 


Infinite Basic 49.95 
Infinite Business 29.95 
24.95 
34.95 
24.95 
DOSORT (sorts disk files) 34.95 
COPSYS (copies system tapes) 34.95 


NEW DOS FROM APPARAT 


35 Track 
40 Track 


This DOS emulates many mainframe capabilities. Has 
features usually restricted to much larger systems. 


TARANTO and ASSOCIATES 
General Ledger 

Accounts Payable 

Accounts Receivable 

Print Invoice 

Complete Business System 


This is professional quality software and really provides a 
superb business system for the TRS-80. Software main- 
tenance is available to purchasers of the complete system 
at $15 per hour, to tailor the programs to your specific 
needs. 


PLUS MANY MORE 


We are the Australian agents for many first class U.S. soft- 
ware houses. Send for our full catalogue. 


Remember, for all your TRS-80 and System 80 needs, phone, 
write or call 


TRADE ENQUIRIES INVITED 


Showroom: 

Ground Floor, GIO Building, 159 Kent Street, Sydney 2000 
(opposite IBM Building) 

Phone: (02) 241 1813 


We regularly conduct a series of evening periods of small 
group tuition from 7.30 p.m. onwards in BASIC with 
specific emphasis on commercial applications. 

These sessions are conducted in a friendly and helpful 
atmosphere and are designed to give you a complete 
mastery of BASIC techniques up to and including all 
aspects of disc I/O and file handling. 

We will teach you tricks even Tandy don’t know about! 
All stationery and workbooks are provided. Textbooks 
available at an extra charge. 

Fee for 10 periods (up to 3 hourseach)....... $150.00 
Special private or group tuition on any aspect of BASIC 
or commercial/business applications of microcomputers 
avaiiasie on request. 

Tuition includes assignment work if required — and 
assessment. 

A certificate of competence is awarded on successful 
completion of a tuition series. 
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REMEMBER — for all your TRS-80 needs — phone, 
write or call 


159 KENT STREET, 
SYDNEY 2000 
(opposite IBM building) 
Phone: (02) 241 1813 


CISA 


We are currently preparing a correspondence course for 
out-of-town TRS-80 users. Details will be available shortly. 


We carry the fyll range of MICRO-80 newsletters and 
recorded software plus a range of popular micro- 
computing journals. 


would pay off over the given time 
period, taking into account the interest 
charges. If there is still a debt by the 
end, the repayment value was not 
enough, so increase it and try again. 
Continue until the repayment amount 
pays off the loan. 

Input data 

1. duration of loan 

2. interest rate 

3. amount of loan 

Output data is the calculated monthly 
repayment amount. 


In the declaration part, the variables 
required in the calculation will have to 
be declared only if they are local to the 
procedure, since the global variables will 
already have been declared. Thus a 
check should be made that the input 
and output variables, YEARS, 
INTERESTRATE, LOAN and REPAY 
appear in the variable declaration of 
the main program. Some of these may 
be missing in a “first attempt” version 
and so should be incorporated. 

To start coding CALCULATERE- 
PAY the first step is to generate the 
working data from the input data. The 
repayment period, for instance, is in 
years but is here required in months 
as is the interest rate. Therefore two new 
(local) variables TOTALMONTHS and 
MONTHLYINTERESTRATE must be 
declared and calculated. Next, the 
initial estimate should be made, in order 
to start the whole process off. Since re- 
payments will be increased to improve 
the ‘“‘guess’’, it is important to start 
with an estimate below the likely value. 
A reasonable first estimate would be the 
amount one would pay back interest- 
free. This is simple enough to code at 
this stage as can be seen in line 10 of 
Box 11. (Note that DIV has been used 
since REPAY is an_ integer. This 
program could be changed to give 
dollars and cents if the user were 
willing to trade some speed for such 
accuracy). Since the initial estimate 
must be too low, the next step should 
be to add $1 to the repayment and 
test whether that will pay off the loan. 

The process of incrementing the 
repayment amount and testing will be 
repeated until a figure is reached which 
actually does pay off the loan. This 
has been coded in the REPEAT-UNTIL 
loop, lines 11 to 15, Box 11, but, just as 
this calculation was put off in the main 
program, so the job of calculating how 
much a given value of REPAY would 
actually pay off over the time-period 
is deferred to procedure TRYREPAY, 
which is the next problem to be tackled 
(Box 12). 


The problem definition of TRYREPAY 
could be: 

Evaluate how much a given value of 
REPAY would pay off over the given 
duration of the mortgage using the 
given interest rate, assuming monthly 
payments and the compounding of 
interest. : 

Input data 

1. monthly interest rate 

2. duration of loan (months) 

3. value of loan ($) 

4, value of repayment ($ per month) 
Output data — amount or debt remain- 
ing when time period has elapsed. 


What is owing at the end of one month? 
Suppose AMOUNTDUE contains the 
amount due at the beginning of one 
month and an amount REPAY is paid 


back. At the end of that month, the 
amount due will be (AMOUNTDUE - 
REPAY) + interest accrued during the 
month. This figure will become the 
AMOUNTDUE for the next month; 
for N months, this calculation should 
pass through N iterations. 

This is coded in the FOR-DO loop, 
Box 12, lines 6 and 7. The only variable 
needed that has not been previously 
declared is the loop counter, which is 
declared locally in line 4. This complet- 
es the definition of TRYREPAY which, 
in turn, completes the definition of pro- 
cedure CALCULATEREPAY. 

Having coded -CALCULATERE- 
PAY we now know exactly what 
information GETINPUTS must obtain. 
The problem definition could be: 


Read in interest rate, duration of loan 
and maximum and minimum loans 
(in thousands of dollars). Convert 
interest rate to a decimal (instead of 
percentage) and loan values to dollars. 


Output data 


1. interest rate (decimal fraction) 
2. duration of loan 

3. minimum loan 

4, maximum loan 


An input procedure should usually 
check that the data it accepts is rea- 
sonable and unlikely to cause the pro- 
gram to crash. For instance, if the re- 
payment period YEARS were zero, 
then TOTALMONTHS would also be 
zero. But we divide by TOTAL- 
MONTHS in CALCULATEREPAY, so 
that apart from zero being an unrea- 
sonable figure for years it will also 
crash the program. 

Box 13 contains procedure GETIN- 
PUTS. In the action part the four pro- 
cedures GETINTEREST, GETYEARS, 
GETMIN and GETMAX are called. 
The declaration part lays down limits 


PROCEDURE PRINTHEADINGS 3; 


within which the input data should 
fall (lines 2 - 4). If one of these should 
later on prove restricting, it will be 
easy to change the CONST declaration. 
The four individual input procedures 
Box 14) are so similar that only one, 
ETINTEREST, need be considered in 
detail. Its problem definition could be: 


Output a message asking fof the rate of 
interest. Check whether the response 
is within the range of reasonable values. 
Keep asking until an acceptable reply 
is received. Then convert this number 
from a percentage to a decimal fraction. | 
Input Data 

IMIN and IMAX — limits of “‘reason- 
able” interest rates (as a percentage). 
Output Data 

INTERESTRATE — actual required 
interest rate as a decimal fraction. 


A REPEAT-UNTIL loop (lines 6 to 9) 
is used to accept input. The program 
remains in the loop until an acceptable 
figure is entered. 

The other three input procedures 
are developed in a similar fashion. 
Note that in procedure GETMAX, the 
minimum value for a loan is not LMIN 
but MIN DIV 1000 — the actual lower 
limit obtained from GETMIN (line 34). 

Finally, PRINTHEADING is tackled 
(Box 15). Its problem definition could 
be: 


Clear the screen, then print out a title 
followed by the required interest-rate 
and the duration of the loan. Skip 
several lines and print the headings 


MORTGAGE (for the loan) and 
MONTHLY REPAYMENTS. 

Input Data 

1. yearly interest rate (%) 
2. duration of loan (years) 


Output Data — none as this procedure 
simply produces the headings. 


Cont. on page 38. 


(*PRINT OUT INTEREST RATEs NUMBER OF YEARS AND 
TABLE HEADINGS-1-E- LOAN AND REPAYMENTS*) 


CONST SPACE=' : 

BEGIN 
WRITELNC SPACE, 
WRITELNC SPACE, 
WRITELN 3 
WRITELNC "INTEREST RATE =', 

YEARSs ‘"YEARS') 3; 
WRITELNC? LOAN 
WRITELNC’ heats 
WRITELN 
14 END + (*PRINTHEADINGS*) 


.PASCAL STANDARD FUNCTIONS 
Arithmetic: 


Absolute Value 
Trig functions 


Real or Integer 
Answer Real 


Exponential ] Answer Real 


Natural Logs 
Square 
Square Root 


Real or Integer 
Answer Real 


TRUNC(X) 
ROUND(X) 


Truncave 
Round to closest 
integer 


1@8* INTERESTRATE, 


REPAYMENTS') 3 


X real, Answer is integer part 


g 
[ROUND(X) = TRUNC(X + 0.5) when X is positive | 


***MONTHLY MORTGAGE REPAYMENTS*®*") 3 


"% OVER °. 


PROCEDURE PRINTHEADINGS 


COMPUTING JARGON 


Control Structure 
Counter 

Compound Statement 
Rogue Value 

Boolean Expression 
Relational Operator 
Module 

Iteration 


‘UCSD Exceptions 


ATAN(X) instead of ARCTAN(X) 
Also LOG(X) is log to base 10. 


EXERCISE SUMMARY 


1. Ten Green Bottles 
2. Accuracy Test 
3. Mortgage Table 
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_ EXATRON 
STRINGY FLOPPY 


Thomas Murphy gives his personal impressions of a device that looks set to radicalize the concept of 
information storage for the small computer enthusiast. 


Whilst waiting for my SWTPC 6800 to 
load 8K BASIC via its 300 baud cassette 
interface (some 14+ minutes worth), I 
happened to browse through an Ameri- 
can computer magazine and spotted an 
advertisement by the Exatron Corpora- 
tion for their Stringy Floppy; it was 
claimed that the combination gave: (a) 
economy of tape, with (b) the speed 
and reliability of discs. Apparently, this 
system reads and writes at 14,500 bits 
per second, with a typical error rate of 
1 in 100,000,000 bits. They also claim 
an average life of over 3500 hours for 
the transport mechanism, and a tape 
wafer life of 2500 passes. 

BASIC was barely half loaded, so 
I filled in time by cle eoll to them at: 
3557 Ryder Street, Santa Clara, Califor- 
nia 95051, USA. I explained that I 
was VERY interested in their system 
for my SWTPC computer. Less than 
two weeks later a large envelope arrived, 
containing total system information 
and advising that payment could be 
made by the indicated method. 

Could all the claims contained within 
this information package be true at 
such an attractive price? Well one way 
to find out was to place an order — 
which I duly did — for one drive mech- 
anism and a controller card, with 
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TSC BASIC as an extra piece of soft- 
ware. I felt I couldn’t lost. With a 30 
day money back guarantee, all it would 
cost would be postage and packing 
charges should the equipment not 
perform as advertised. 

Five weeks later, the parcel arrived, 
acinar: all I had ordered, plus a 
couple of spare tape wafers, and two 
guaranteed system master wafers. 

I settled into my favourite armchair 
to study the large owners’ manual 
(which, amongst other me tells you 
that Exatron’s logo, of an E inside ano- 
ther E, stands for excellence in elec- 
tronics). It proved very comprehensive, 
and surprise number one, thie systems 
water contains SWTPC’s Disc BASIC — 
free — as well as the ordered TSC 
BASIC. 

The manual also contains a system 
description, system requirements, instal- 
lation and checkout procedure (which 
includes trouble-shooting procedures for 
both the controller and transport), cir- 
cuit and block diagrams of both con- 
troller and transport electronics, a 
general guide to system operation, and a 
detailed overview of each utility pro- 
gram on the systems wafer. 

These programs are: APPEND, 
ASSIGN, CATALOGUE, COPY, DATE, 


DELETE, LOST, NEWTAPE, PRINT 
(which causes the file to be output to 
the printer on PORT 7 instead of the 
VDU) RENAME, SAVE, SAVE LOW, 
TTYSET (with which one can change 
the input and output parameters to the 
terminal), and VERSION. There is no 
LOAD, as you call a file by giving file 
details — e.g. 1. STARTREK. HEX will 
load STARTREK from drive number 
one. 

The manual also contains an ERROR 
LIST for the ieee plus the manufac- 
turer’s User’s Manual for SWTPC Disc 
BASIC, plus any optional software or- 
dered. 

After reading the manual twice, I 
installed the controller on the mother- 
board,plugged in the transport,switched 
on and typed Z which on my monitor 
executes a jump to $CO000. The trans- 
port started running, stopped, and 
instead of outputting “Simplex —68 
Version X.X” as called for in the 
manual, my micro returned to its reset 
state. Oh well, back to the drawing 
board .. . I re-read the manual. Finding 
there was nothing that I had done 
wrongly, I typed Z again. Same result, 
back to monitor. 

OK, call up the heavy artillery ... 
out with the oscilloscope. I went 


Facing page: The stringy floppy drive. Above: Inside the wafer, showing the 
tape being drawn from the centre of the spool and rewound on the outside. 


through the troubleshootin a of the 
manual with probe in hand. Everything 
checked out, so I should have had a plus 
and minus 25% speed variation on the 
drive. I tried again, but with the same 
result. 

Sending it back seemed the only 
solution — and in the course of unplug- 
ging the drive, the ribbon cable came 
away instead of the plug! In my excite- 
ment (it was 3 am) I think I recon- 
nected it back to front, because on the 
next try, although the drive motor came 
on, it wouldn’t even switch off and go 
back to monitor. 

I parcelled it all up and returned it 
for inspection/repair with a letter ex- 
pans how I thought I had abused it. 

also ordered the second drive unit at 
the same time; now I had the owners’ 
manual I could see the versatility off- 
ered by having two drives instead of 
one. 

The manual says that Exatron will 
repair “within 30 days’, so allowing for 
airmail both ways, I settled back for 
about an eight week wait. 


Surprise number two: 23 days later 
my system reappeared, complete with 
the second drive as ordered, a couple 
more spare wafers, and yet another very 
a surprise — the repair charge was 

IL. That’s right, absolutely NO 
CHARGE, although I know there were 
some chips burnt as a result of my tired- 
ness (carelessness). 

As I now knew the owners’ manual 
almost by heart, I installed the system 
in the micro, connected up, inserted a 
wafer in each drive, and typed Z. The 
drives switched on consecutively, and 
up came “SIMPLEX — 68 Version 1.0” 
on the VDU. 

It took a few moments of gloating to 
realise that I had around 80K (well, two 
identical lots of 40K) of software just 
waiting to be called up. Just think, 
though, no worry about volume control, 
tone control, different cassettes, each 
with two sides, or, where on tape was 
the wanted file. . . just call for what you 
want. MAGICAL. 

I typed CAT,0,1 and 30 seconds later 
I had seen, on my VDU the directory 


of both drives. 

Before you can WRITE a file, you 
must use the NEWTAPE facility, so this 
I now did, and after the prompt 
“SCRATCH TAPE IN DRIVE 1” was 
answered with a “Y’’, (after replacing 
the backup system master wafer with a 
new 50 foot wafer in drive 1) the drive 
started up, stopped, and the message 
“FORMATTING COMPLETE — 318 
SECTORS FREE” came up. Each sec- 


tor holds 256 bytes, so my newly for- 
matted wafer would hold /9.5 Kbytes. 
I decided to transfer my BASIC lib- 


rary from cassette, and as SWIPC Disc 
BASIC supports a “tape load”’ Steins 
command, to pull data from cassette, 
typed “BASIC”. The drive searches at 
20 inches per second, and reads/writes 
at 10 inches per second; around 30 sec- 
onds later the VDU showed “READY’”’. 

The wafer is a small (1.6 x 2.7 x 0.2 
of an inch) cartridge and the length of 
tape can be 5, 10, 20 or 50 feet; it’s of 
the endless loop variety, i.e. like the car 
8-track cartridge and you can dramatic- 
ally improve access time at the expense 
of the amount of data stored on the 
wafer. After two years plus of 300 baud 
cassette operation I am quite happy to 
wait the 30 or maybe 40 seconds (worst 
case) for 10K of BASIC to be loaded 
and executed from the longest wafer. 

By careful arrangement of my games 
ae I can be playing my own version 
of Startrek (some 5K long) within 15 
seconds of initialising the system; it’s 
the most popular household game and 
it’s first on the wafer! 


This file has memory requirements 
from $0000 to $13EF, plus a random 
number generator located at $A04A to 
$A06F. To save this on wafer — it being 
non sequential — I first saved 0000 to 
13EF and called the file TREK, then 
saved AO4A to AOG6F, calling this file 
RANDOM. I then APPENDED TREK 
and RANDOM, calling this STARTREK, 
so when I called, the specified memory 
areas are loaded, leaving all other mem- 
ory locations undisturbed. 

All utility programs on the sys- 
tems wafer are well documented, to 
include “‘default unless specified”’ condi- 
tions. 

The obvious question is, have I had 
any problems? Well, my utility Lief 
gram “VERSION” doesn’t work. This 
allows you to find out the version 
number of any utility program. The 
book tells you that this is a hexadeci- 
mal number stored in byte 3 of the re- 

uired utility. By using the “memory 
change”’ facility of my monitor, I have 
examined this location of each utility, 
and found than all to be version 1, 
though why I need to know, I’m not 
sure. I have advised Exatron of this non- 
working utility and await their reply. 

The utility program TTYSET appears 
incorrectly documented. The correct 
syntax, for mine at least, is TTYSET, 
filespec = x where x is the desired hexa- 
decimal/decimal number. 

Apart from these two tiny, and, as 
far as I’m concerned, totally unimpor- 
tant items there have been no other 
problems. The system worked first, and 
each consecutive time, thus inspirin 
confidence for future use, altroueh 
“ERROR MESSAGE X”’ has apres 
as a result of fumbling on the key- 
board or where I thought I knew the 
manual 
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Summary 


The system arrives ready to plug in and 
go. The quality of both boards and 
workmanship is far superior to that nor- 
mally ‘expected in the hobby market, 
and can be summed up in one word — 
professional. The repair service can be 
classed as superb, and I have no inten- 
tion of trying the 30 day money back 
guarantee. . . I like the system too 
much. 

The software works well and, current- 
ly, TSC BASIC, Editor and Assembler 
are available as optional extras; more 
(unspecified) are planned. Documenta- 
tion is very complete, and, less the 
TTYSET as explained, accurate. 

Exatron also produce their Strin 
Floppy for S100 bus users, and bo 
this and my own SSS5O bus version 
derive all of the voltages necessary for 
use in the transport and controller 
from the mother board. 

There’s also a version available for 
the TRS80, though this requires mains 
voltage and, of course, the United States 
use 110 volts. Exatron do say that they 
can advise OEM applications not cov- 
ered by the systems offered, and I’m 
sure it would be a very easy matter to 
replace the 110 volts PSU with one 
suitable for 240 volts. Versions are 
planned for both PET and Apple, 
though no information is available on 
these as yet. 


Footnote 


Since I purchased my unit, ASP 
Microcomputers of East Malvern, Vic- 
toria, have been appointed distributors 
of the Stringy Floppy. Their price of 
$350 includes a box of ten wafers 
which normally retail for $3 each and 
a two for one extender cable to the 
TRS-80. 
~ [’'d recommend this system not only 
to every hobbyist, but also to business 
users aS a more than economic saving 
over discs. Should you need almost 
instant access then, of course, it’s not 
for you. But there again, who, apart 
from people paying for computer time 
by the hour, require this facility; and 
anyway, one of the reasons that hourly 
time is so expensive is the price of fast 
access on line storage! 


It wasn’t until writing this report that I 


looked up some of the tape wafer times 


first (possibly 
faulty) system, I judged that the system 
wafer took 82.5 seconds, or 7.27 inches 
per second which is (just) outside the 


I had recorded. For m 


-25% speed tolerance. My system now 
reads the wafer in 57.8 seconds, or 
10.38 inches per second; maybe I could 
have used the troubleshooting part of 
the manual to bidoeg effect. In there it 
tells you how toleither up or downgrade 
the transport speed, but in my inno- 
cence (ignorance) it didn’t gel first off; 
then due to circumstances aurnsiness) 
beyond my control (it was 3 am) I 
didn’t get a second opportunity. 

Thanks to Exatron, I now have a 
totally redundant AC30 cassette inter- 
face with two recorders and a pile of 
tape software valued at over $400; this 
however is a small price to pay for the 
yer and speed I have gained. I really 


o think they have achieved their aim of 
a eel in Electronics (mechanics 
too: ). 


MS Microsoftware 


TAPE 1 LEVEL 2 


Mortgage calculations, Dow Jones Industrial, cash flow, inventory- 
change, California income tax, journal ledger (8K), loan amort- 
ization, perpetual calendar, bio rythm, payroll, diet planning, speed 
reading, touch typing, sales receiptally, decision maker, mail 
addressing, straight depreciation, double-declining depreciation, and 
revolving charge account. 

Also, math problems, queen, Star Trek |, number guessing, 
wheel of fortune, World War || bomber, rock-scissors-paper, seek, 
Star Trek 11, Red Baron, mini-Trek, strategy, pilot, battleship. 
“On A Snowy Evening’, Mastermind, tic-tac-toe, grand prix auto 
race, capitals, etch sketch, hangman. 


TAPE 2 LEVEL 2 


Fully documented in Some Common Basic Programs by Lon Poole 
& Mary Borchers: 


Investment, future value regular deposits; regular withdrawals, 
initial minimum (for withdrawals); nominal interest, effective & 
earned-interest; depreciation rate, amount depreciation; salvage 
value; discount commercial paper; loan principal, regular and last 
payment, remaining balance, term-loan; mortgage amortization; 
greatest common denom. - integer prime factors; polygon area; 
triangle parts; analysis, operations two. vectars; radian-degree., 
degree-radian conversion; co-ordinate, polar equation, functions 
plot; linear, curvilinear interpolation; Simpson’s & trapezoidal rules, 
Gaussian quadrature integration; derivative. 

Side 2 — quadratic equation, polynominal (Newton) & half 
inteval-search roots; trig, polynominal; simultaneous equations; 
linear programming; matrix addition, subtraction; scalar multip- 
lication, inversion; permutations & combinations; Mann-Whitney U 


test; mean, variance, standard deviation; geometric mean & 
deviation; binomial, _ Poisson normal, Chi-square distribution; 
Chi-sq., student's T distribution test; F-distribution; linear 


correlation coefficient; linear, multiple-linear, Nth order, geometric, 
exponential regression; system reliability; future projections; Federal 
withholding taxes: tax depreciation schedule: check writer; recipe 
cost; map check; day of week; days between two dates; anglo to 
metric; alphabetize. 
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TAPE 4LEVEL 1 


Election returns, business percentage, ups and downs of business, 
index, inventory control, sales receipt tally, gas mileage, driving 
distance, mixed monthly sales report, payroll, annual earnings, 
speech recording aid, and double-declining depreciation. 

Also, math problems, cash register, chase, snoopy, commander- 
in-chief, Christmas graphic, air raid, balance scale, stock market, 
tic-tac-toe and On A Snowy Evening. 


TAPE 5 LEVEL 2 


Memory test, mortgage payments, tension breaker, lineprinter- 
screen & vice-versa utilites, Federal income tax, election returns, 
business percentage, vacation planner, car pool (disk), diet planning 
2, mailing list (disk) and first aid. 

Also spelling bee, Star Trek 3, mind bender, tachistoscope, 
chase, common factor, klingon capture, spelling practice, Hamurabi, 
animals, Snoopy, cryptogram, starship, ants, Yesterday, and Pilot 
(disk). Pilot is the language of computer-aided instruction (CAI). 


TAPE 7 LEVEL 2 


Disassembler, Pilot, roster, dropout, memory loader, memory sort, 
inventory control, graph, land surveying, mixed monthly sales 
report, shopping list, diet planning 3, loan progress chart, hex- 
decimal conversion. 

Also Star Trek 4, states and capitals, battleships 2, spelling 
practice 2, number guessing, hangman 2, snark, slot machine, cipher, 
target, surround, adder, termites, lunar lander, multiplication 
exercise, five-in-a-row, Bastem, and write. A number after a 
program indicates there are other similar People’s Software 
programs. Pilot is the same as the disk pilot on tape 5, except runs 
on 16K tape systems. 


Each Tape $9.90 (incl. postage within Australia) 
Please mail your order to: 


MS Microsoftware, 
P.O. Box 119, Essendon, Victoria, 3040. 


SELECTING YOUR FIRST 


by Dr. Jon Patrick 
School of Business, Prahran C.A.E. 


MICROCOMPUTER SYSTEM 


The computer that most people first come in close contact with is 
quite often the small hobby microcomputer, selling for about 
$600 — $2000. It is most frequently sold as a home computer 

useful for assisting with all sorts of laborious tasks, such as 
maintaining your cheque account, keeping a list of recipes or for 
keeping track of the specials at the supermarkets. The first of 
these jobs is done quite efficiently by the Bank and the latter 
two tasks would probably be done less efficiently by the 
computer than by the individual. However, the quandry 
facing the uninformed businessman is the apparent cheapness 
of the “home systems’’ compared to the business system that is 
proffered to him, by a computer supplier, with a price tag of 


While there are plenty of overpriced 
iar available on the market place 

ere are also very real reasons for the 
price differences: 

— The system has many more elec- 
tronic components (even though 
outwardly the system looks similar 
to cheaper units). 

— Individual components (both elec- 
tronic and mechanical) are of a 
higher quality. 

— Components are more complicated 
and sophisticated. 

— System maintenance and back-up 
support is more comprehensive. 
For home computers these services 
may be non-existent. 

— The system software is much more 
powerful and diverse. 

— Gullible purchasers have been un- 
able to discriminate between differ- 
ently priced systems. 

So, as a small business operator how 
do you go about deciding on the “right”’ 
system for your needs. Firstly, hire a 
consultant to do the assessment job 
for you. Secondly, if you really want 
to do the assessment yourself don’t 
expect to get your system off the 
shelf. Rarely does a pre-existing system 
fit your needs precisely. However to 
decide on appropriate alterations to 
the offered package you are going to 
have to learn a lot about the package, 
then you will have to spell out care- 
fully and in precise detail the alter- 
ations you require. Without this sort 
of cautious approach the system may 
not operate according to your require- 
ments and so be more trouble than it 
is worth, and further, any alterations 
will be very expensive. 

Don’t expect to be able to make the 
changes yourself unless you have a 
great deal of computer expertise, in 
which case you don’t need to read 
this article. 

The businessman searching around 
for his first computer system is faced 
with two immediate problems. Firstly, 
what sort of price range for equip- 
ment should he be looking at, and 


$15,000 or perhaps even $30,000. 


secondly, what sort of hardware fea- 
tures should the system have to fulfil 
his needs. For any business, the basic 
requirements are a visual display unit 
with keyboard for data entry, a pro- 
cessor with adequate memory, mass 
storage medium (either floppy or hard 
disc) and a printer for obtaining a 
copy of relevant data, and most im- 
portantly the application software. 


The software costs are the most 
difficult to ascertain and if it is to be 
powerful and very comprehensive it 
could be as expensive as the hardware. 
On the other hand, if you are not espec- 
ially fussy and prepared to fit into 
someone else’s design the software 
may only cost a few thousand dollars. 
Hardware costs are more tangible. For 
most businesses the dominant factor 
that affects their choice of equipment, 
and therefore cost, is their perman- 
ent storage requirements. Secondary 
factors are the maximum number 
of transactions per hour to be pro- 
cessed or the maximum rate of lines 
to be printed per minute. 

Table 1 provides a very approximate 
uide to the storage requirement of 
ive common data processing tasks. 
The first noticeable point is that the 
software demands considerable storage 
requirements. This fact alone removes 
the possibility of using the smaller 
(and cheaper) 5” disc drive for all but 
the smallest business. The minimum 
storage capacity for the 8” diskette 
is 250K characters (where K_ stands 
for 1000). It is customary and good 
practice to retain data files on one disc 
and programs on a second disc. Thus 
to operate the system one needs dual 
disc drives at a cost of about $2,500 
for the pair. It should be also evident 
that not all the software programs can 
reside on one diskette. Thus changing 
from one task to another requires 
loading another diskette. 

The next most important hardware 
item to decide on is the printer. There 
is an enormous variety of printers 
available, however a unit suitable for 


businesses would be a 120 characters 
er second matrix printer at about 
89-000. If you require your ee 
to have similar quality to say, an IBM 
Selectric ewriter, the printer will 
cost about $3,500. 

The third and fourth items of hard- 
ware are the terminal, or visual display 
unit (VDU) and the microprocessor 
with associated memory. The VDU 
should cost between $1,000 and $1,500. 
The type of processor is_ virtually 
immaterial however you will need to 
obtain a minimum of 32K bytes of 
memory and preferably 48K bytes. 
Only if your applications programs 
are very large will you need to go to 
the maximum expansion of 64K bytes. 
The microprocessor and memory should 
cost between $1,000 and $2,000. 


Stepping Up 


The three sets of figures in Table 1 are 
intended to reflect the larger data file 
requirements as business operations 
increase in size. Those businesses with 
complicated requirements for which 
the capabilities of microcomputers 
are inadequate will find it necessary 
to use a minicomputer priced from 
about $25,000. A number of these 
complications can be clearly stated, 
for ee 

The disc categories at the bottom 
of Table 1 suggest that once your 
stock is getting over 2000 items and 
you have greater than 30 staff, the 
flexible disc system probably will not 
fill your requirements. It is possible 
to get double-density or double-sided 
flexible disc drives that increase the 
capacity of a diskette. However for the 
larger business the importance of mass 
storage in deciding on a computer 
system becomes subjugated to the 
necessity for fast input and output 
of large transaction volumes. This is 
the case if there are more than 6 line 
items per invoice, or there are more 
than two prices per item. If your 
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volume of printing is great, then you 
may require a fast line printer costing 
anything from $4,000 to $12,000. 

It may be necessary to input data 
to the computer files from a number 
of terminals positioned some consid- 
erable distance from the computer. 
In this situation communication fac- 
ilities, not usually available on micro- 
computers, will be necessary. 

Service organizations often have 
far greater character storage require- 
ments than retail or production bus- 
inesses. This is particularly the case if 
one wants to store detailed customer 
history records eg. electrical appliance 
supplier, medical practice. A_ single 
record may be as much as 500 char- 
acters. It may be necessary to search 
the customer file for, not only surname, 
but suburb or appliance. This type of 
data processing requires a large storage 
capacity, fast data retrieval and powerful 
search capabilities. | Microcomputers 
tend to be inadequate in both these 
requirements for business environments. 

With many application programs 
and data files spread over a large num- 
ber of diskettes, staff often become 


frustrated with constant swapping of 
diskettes. This is particularly so if a file 
or group of programs has to be spread 
across two or more diskettes. 


Also if 


PASCAL. . . continued from P. 33 


The coding for this procedure appears 
in Box 15. The entire program can 
now be gathered together, incorpora- 
ting the extra global variables (IN- 
TERESTRATE and YEARS) into the 
declaration part of the first attempt 
(Box 10) and filling out the details of 
the different procedures as they have 
subsequently been designed. 


EXERCISE: 


your data files are near the capacity of 
the diskette there can be problems in 
ie transaction files large enough 
for efficient processing. his over- 
loading situation means that one has to 
move up to larger drives. 


Conclusion 


It must be re-emphasized that the 
software is ultimately the most im- 
portant element in your complete 
system. It is the job of the software 
to mimick your manual system. If it 
fails to do this task to your satisfaction 
then you have wasted your money. 
On the other hand, the software can 
only be successful if you spend a great 


deal of time and trouble detailing the 
current system and ee | the re- 
Sie of the software. The bene- 
its gained from computerizing your 
operations are not instant efficiency 
or a sudden upturn in_ profitability. 
In a good system the benefits are a 
much speedier processing of trading 
information thereby enabling a much 
closer scrutiny of eter an and a 
more accurate and consistent main- 
tenance of records and accounts. So, 
the real benefit is substantially increased 
control of the information pertaining 
to your business. Your computer 
system’s value to you will ultimately 
be measured by what you make of 
this control. 


TABLE 1 — DATA FILE STORAGE REQUIREMENTS 


Data Processing 


i 
Chter/ | R’cord Cap. 
K 


2 
R’cord Cap. 
K 


Task Record 

Order Entry/ 

Stock Inventory| 140K 100 | 500 50} 2000 200; 8000 800 
Creditors 100K 160 50 8 100 16 200 a2 
Debtors 80K 160 | 100 16 300 481; 4600 96 
Payroll 60K 60 10 6 30.) «1.8 50 3 
General Ledger | 100K 60 50 5 100 10 150 15 

480K Flexible Disc | Possibly Flex. Hard Disc 


table showing the 15 year, 20 year, 
25 year and 30 year monthly repayment 
figures for a given range of loans. The 
input should be the interest rate and 
range of loans (and not the loan period) 
and the output should be a table with 5 
columns — one for the amount of the 
loan and one each for each repayment 
period. 


Conclusion 


statements within a program. Every 
language needs a loop — PASCAL has 
three, which enriches the language and 
makes it versatile. Loops can be disting- 
uished by the type and position of the 
loop test relative to the loop body. 

Just as a program can be built up 
from basic blocks into an ordered 
structure, so can the data on which 
the program operates be organised into 
efficient and powerful data structures. 
The next chapter will serve as an intro- 


| Adapt REPAYMENTS to produce a_ Loops control the repetition of a set of duction to these. 


Many thanks to all the 


Puzzle 1B: Keith De La Rue 


LEISURE LINES 


With J. J. Clessa 


right to left as it does from 


before a) Alan’s and Bert’s 


readers who responded to 
our first Leisure Lines. 

Puzzle 1A involved some 
logical reasoning, and should 
not have proved much of an 
obstacle to our readers. 
The solution is that the 
pilot’s name is SMITH. 

Puzzle 1B was a bit 
tougher, and although it 
can be solved analytically, 
by anyone who’s familiar 
with Diophantine analysis, 
it’s a much simpler task to 
write a small program for 
desk calculator or micro- 
computer. 

sing the formula for the 

area of a triangle (axb/2), the 
smallest solution is a triangle 
with sides 144,192,240, with 
a perimeter of 122 and an 
area of 248. 

The first correct eniries 
opened were: Puzzle 1A: 
Patrick Jordan of Lane Cove. 
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of Melbourne. 

Congratulations to both 
and stand by for a shower 
of chocolate bars (not to 
mention the subsequent visit 
to the dentist). 

Just one puzzle for this 
month, but it’s really a 
rather interesting one. 


Three friends, Alan, Bert 
and Colin each possess 
vehicles. Alan owns a bi 
foreign car, Bert a sm 
Australian car and Colin, a 
motorcycle. 

_ One day while discuss- 
ing mileages, Alan reports 
that his milometer, which 
gives 6-figure mileage 
readings, is currently show- 
ing a palindromic reading 
of 006600 miles (for those 
that know not, a_palin- 
dromic number is one 
which reads the same from 


left to right). 

“What a_ coincidence’, 
explains Bert, “So is mine. 
The 5-figure reading at the 
moment is 18981 miles.” 

“Well I never’, says 
Colin, “although the milo- 
meter on my motorcycle 
only shows 4-figures, it’s 
reading 5335 miles, which 
is also palindromic”’. 

“I wonder if we’re ever 
likely to get such a coin- 
cidence again,” says Alan. 

Well, of course, 
each vehicle does a diff- 
erent weekly mileage from 
the others, there’s no way 
that the question could be 
answered. But, supposing 
all three milometers were 
connected to just one vehicle 
and also supposing that they 
were equally accurate, then 
what is the least number 
of miles that would elapse 


since. 


milometers are both showin 
ae readings again! 

) Alan’s and Colin’s milo- 
meters are both showin 
palindromic readings again? 
c) Bert’s and Colin’s milo- 
meters are both showin 
palindromic readings again? 
and d) all three milometers 
are mutually palindromic? 
Answers please on a postcard 
to Puzzle No. 3, Australian 
Personal Computer, PO Box 
115, Carlton, 3053. 


Entries must reach our 
offices before August 15th. 
PRIZES FOR THIS 
MONTH 


This month’s prize is really 
cunning. In order to make 
sure the winner continues 
to send in entries to Leisure 
Lines, we intend presenting 
him/her with a hundred 
22c stamps. 


Practising 


a little 


icro-contro 


By Mike Dennis 


Much has been said on busses and the basic schematic layout 
of personal computers. However, little has been published on 
what the various control signals that come out of the CPU 
chip do, and how you can use them. To list them all would 
fill this magazine and so I intend to fill the gap with 


The basic design 


reference to the ZS80. 


Figure 1 shows the familiar block diagram of a typical computer. 


ADDRESS BUS 


MEMORY 


DATA BUS 


FIGURE 1. 


In order to determine what control 
signals may be necessary, we must 
list those operations that are required 
from the computer. Table 1 shows 
them: 


1/ CPU sends data to memory. 
2/ CPU receives data from memory. 
3/ CPU sends data to I/O (Input/ 


Output). 


receives data from I/O. 


TABLE I 


4/ CPU 


Larger computers like the PDP-11 
have the added facility to move data 
to and from memory and I/O but in 


soe 


the micro world this is generally not the 
case and so transferring data from I/O 


into memory would require a combin- 


ation of operation (4) and (1). Table 
1 can be re-arranged thus: 


al The CPU communicates 
either memory or I/O. 


with 


b/ The CPU either sends or receives 
data. 


TABLE II 


The system needs to know which one 
of these is to take place and the control 
signals do precisely that. There are 
four control signals from the Z80 
and they are: 


1/ MREQ — indicates CPU wishes 
to communicate with memory and 
that the address bus is stable and 
valid. (Memory REQuest.’) 


2/ IORQ — indicates CPU wishes 
to communicate with I/O and that 
the address bus is stable and valid. 
(‘I/O ReQuest.’) 


3/ WR — WRite — CPU wishes to 
send data — the data bus is now 
stable and valid. 


4/ RD — ReaD — CPU wishes to 
receive data. 


These signals are all automatically 
generated by the CPU. Moreover, as 
far as the CPU is concerned, they are 
generated at the right time with re- 
spect to each other. It is up to the 
user to do something useful with 
them! 


For example, when operation (2) 
is in progress, the CPU would make 
both MREQ and RD active. The bar 
over the top means that they are ‘active 
low’, ie. when they are active, they are 
at logic O or Ov or whatever you like 
to call it. Table III shows the logic 
state of the four control signals for 
each of the operations. 
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(Table I operations) — 


MREQ IORQ_ RD WR 


1 
0 
1 
0 


TABLE Ill 


Some computer manufacturers, e.g. 
Tandy, gate these controls together 
and derive four different ones:— 
MEMRD and MEMWR (memory read 
and write) and IORD and IOWR. 
Unfortunately, this results in the loss 
of flexibility of the four original signals. 


Use of 
control signals 


The basic concept of the tri-state bus 
is that there is only one device on the 
bus at any one time that is supplying 
any data — the talker. All the other 
devices are sitting across the bus and 
listening. The control signals help 
discriminate between the talker and 
the listeners and allow them to talk 
or listen at the correct time. 

After reset is hit, all the internal 
registers are cleared and the program 
counter is forced to a specific value or 
address, depending on which CPU 
chip is used. The contents of the pro- 
gram counter are then transferred to 
the address bus as an address and, in 
the case of the Z80, this address is 
0000. The Z80, therefore, expects 
to find the first program instruction 
at this address. As this instruction 
will reside in memory and the CPU 
wants to read it, so MREO and RD 
will be made active (in this case, ac- 
tive low) by the CPU — see Figure Zs 
which has been taken from the Z80 
Technical manual. Notice that the 
whole operation takes four clock 
cycles. 

The next step is to apply the con- 
trols to memory in such a way that the 
data at this address 0000 finds its way 
onto the data bus so that the CPU can 
read it. 
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How memory uses 
control signals 


Figure 3 shows the pin connections for 
a 2708 EPROM. This device has a cap- 
acity of 1K bytes (21° bytes) and so 
10 pins are needed to access all the 
memory locations within the chip. 


FIGURE 3. 


The data is output onto the data bus 
via pins 9-11 and 13-17 inclusive 
only when pin 20 (CS; CS = Chip 
Select) has been taken low otherwise 
the o/ps (outputs) of the 2708 are 
tri-stated. The CPU has put out 0000 
or 0000 0000 0000 0000 onto the 
address bus but the 2708 is only in- 
terested in the logic state of the ten 
lower bits of the bus (Ap to Ag). The 
remaining six bits can be ee to un- 
iquely define the 2708’s position in 
the possible 64K bytes of memory 
that the micro could address. There 
are two methods of decoding: 


1/ Full decoding 

Here the remaining six bits are com- 
bined via a logic circuit that will only 
give an output when a certain bit 
pattern is present. The 2708 must 
respond to a base address of 0000 and 
so the circuit of Figure 4 will decide 
this. The output from the decoder is 
O which, conveniently, is needed by 
CS in order to enable the 2708. 


FIGURE 4. 


2/ Partial decoding 

This is only suitable for a system of 
limited size and one that is not going 
to expand. Assuming that it consists 
of, say, 4K bytes of RAM and 2K 
bytes of ROM, then each of the spare 
six address lines could be used directly 
as the Chip Select (CS) for each K 
bytes of memory. Figure 5 shows how 
they could all be used and the various 
base addresses that they will each 
respond to. Notice that address 0000 
still needs to be completely decoded 
and this has not been shown. Care must 
be taken when programming to prevent 
any attempt at reading or writing to 
addresses that would select two or 
more blocks of memory. For example, 
an instruction to read data at address 
FOOO would be disastrous as all four 
blocks (A, B, C & D) would be selected 
simultaneously! 


FIGURE 5. 


Full decoding is certainly well 
worthwhile and always pays dividends 
in the end as bus conflicts are avoided. 
You perhaps are wondering about RD 
and WR? Well .... 


ADDRES 4 xX 
t acc 


TS/We SR ge = 


lee fue 


FIGURE 6. 


All memory has an inherent delay 
between the address being presented 
at the memory chip’s pins and then 
valid data appearing on the output pins. 
There will almost certainly be rubbish 
on the pins until a certain time has 
passed — the access time. Access time 
is often quoted as part of the chip 
number, eg — 2102-4 (450nS) access 
time. It can also be found from data 
sheets, and Figure 6 shows that for 
the 2708, while Table IV gives the 
timings. 


Symbol Parameter Min. Typical Max Unit 


tacc Address to o/p 280 450 nS 
valid 

tco Chip select to 60 120 nS 
o/p valid 

taf Chip select to 120 nS 


o/p tri-stated | 


We are told that the data will be 
valid at a maximum time of 450 nSecs 
after the address has been presented 
and CS has been low for at least 120 
nSecs. Relate Figure 6 to Figure 2. 
If we are using a clock frequency 
of 2MHz then one clock cycle will 
take O.5uS or 500nSecs. The CPU 
samples data on the rising edge of 
T3 and so our data must be valid and 
stable on the data bus by this time. 


Have we enough time? The address 
is present on the 2708 for nearly all of 
T2 and most of T1 before the critical 
edge of T3 occurs. That is nearly 1000 
nSecs and more than enough for our 
2708. We can use Figure 4 to chip 
select the 2708 and further combine 
this signal with MREQ and RD to 
enable a separate chip that buffers 
the outputs of the 2708 from the data 
bus. This is shown in Figure 7. 


‘Figure 7. 


In fact, with Figure 7, there is no 
reason why CS of the 2708 shouldn’t 
be permanently tied low provided that 
the tri-state ae is only enabled 
when ae are low and MREQ 
and RD are > ackire — shown dotted. 
A similar process can be applied to 
RAM and this is discussed next. 


Read and write 


RAM really is an awful word! We 
don’t actually random access the 
memory; if we did, there’s no telling 
what data would come out. What is 
done is Read/Write but no-one seems 
to call it that. Figure 8 shows the 
timing diagram for a Memory Write 
by the Z80; Figure 9 — the timing 
diagram for a 2102 RAM; and table 
V gives the timings. 


Write cycle 450 
Address to write set-up 20 
Write pulse width 
Data setup 
Chip enable (select) to 
write setup 
Data hold time 


TABLE V 


A brief explanation of some of the 
above follows now: 
— the address must be valid 
aw at least 20nSec before write 
goes low. 


— the data must be valid 300 
nSec before the write pulse goes 
high. 
tq, — data must remain valid for 
OnSec after write goes high. 


Comparison between Figure 8 and 9 
shows that the timings of the control 
signals from the Z80 are capable of 
providing the times shown in Table V. 
There is a fair margin as well. For 
example, data remains valid for some 
time (almost 200nSecs) after write 


Dy_3 : 3 DATA OUT | 


these ports. Timing is not a problem if 
you use peripheral chips from the same 
stable like the Zilog PIO or CTC. With 
other I/O devices, timing may or may 
not be a problem. It all depends on the 
speed with which the CPU transfers 
data to and from the device. Those 


' tow 


1 
CHIPENABLE ; a 

ifaw twp | 
READ/ WRITE t / 


Figure 10. 


goes high and so there is plenty of room 
for a chip that has a longer tgh. Figure 
10 shows how a 2102 could be conn- 
ected up to a buffer and address de- 
coder. Work out what base address 
it will respond to — answer given 
at the end*. 


What about 1/0? 


So far, we have only considered mem- 
Ory. 1/0 is very similar but this time, 
as mentioned previously, [ORQ is used 
and not RD and WR still per- 
form the same functions. However, only 
the bottom eight address lines are used 
to decode which port is being accessed. 
Fight lines allow 256 different ports 
to be decoded and RD and WR will 
tell them which direction the data is 
going. Sometimes, several ports exist 
within the one chip (e.g. PIO’s which 
have two data ports and at least two 
command or status ports) and the chip 
performs the decoding for itself for 


devices that transfer data slowly, like 
UARTS, are easy, whereas those that 
transfer data quickly, like CRT or 
floppy disc controllers, are more diffi- 
cult. You have to get the data sheets, 
burn the midnight oil and try it for 
yourself. 

That completes this quick look at 
control signals but one further point 
remains regarding convention. When 
the CPU chip is reading data from either 
memory or I/O, then that device is 
writing to the CPU, so should the 
RD or WR line go active? Conven- 
tion states that it is the-action of the 
CPU that dictates which line goes 
active and, in this case, it will be the 
RD line — common sense really, since 
it’s the CPU that generates the control 
signals and it should know what it’s 
doing! 

*(Ans: FCOO) 
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PROGRAMMING 
- THE SIMPLE 


APPROACH 


Mervyn Axson leads you gently through the minefield of writing your 
first ‘real’? programs in BASIC. Suitable for businessmen as well as 
hobbyists, you need only a nodding acquaintance with the language 
and access to a machine in order to start. 


The operations to be performed in most 
business programs are very simple, so 
the programming should also be simple. 
You may doubt the truth of this if you 
look at a listing of a program, for at 
first sight it probably appears to be 
very complicated. If, however, you 
examine it bit by bit, you will find that 
it really is quite simple. I’ll be tackling 
the problem in the reverse way, by 
writing a very basic program, and then 
refining it step by step to show how it 
ends up looking complicated. And by 
the way, although the program will be 
written in PET’s version of BASIC, it 
can easily be modified to suit other 
machines. | 

A problem common to many busi- 
nesses is that of quoting credit terms to 
prospective customers. Let us suppose 
that we require a minimum deposit of 
10% and that the credit charges are at 
the rate of 122% per annum calculated 
on the balance remaining after payment 
of the deposit. The query is: ““What are 
the terms for good costing $399.95 over 
18 months?”’. The calculations are not 
difficult, although perhaps tedious. 


Now we have to consider how to write 
the computer program to carry out 
these operations for us. Actually, the 
simple answer is that we have already 
done so, for these are all valid BASIC 
statements! We only have to add line 
numbers and allow for inputting Sum, 
Interest Rate and Period, and output- 
ting Deposit and Monthly repayment. 
Our completed program reads: 


10 INPUT S 

20 INPUT I 

30 INPUT P 

40 D =S/10 

50B=S—D 

60 C =B * (1/100 * (P/12)) 
70A=B+C 

80 R = A/P 

90 PRINT D 

100 PRINT R 


Note that this short and simple program 
is complete in itself and will give the 
required answers for any values that 
you wish to input. You could stop here, 
since most of the refinements to be 
added are largely cosmetic.in that they 
do not improve on the basic function, 


Deposit = $399.95 divided by 10 = $40.00 


Balance = $399.95 minus $40.00 = $359.95 | 

Charges = Balance multiplied by interest rate multiplied by period. 

eriod = 18 months. 

= 12%%* 1.5 = 18%% 

.95 multiplied by 18.75/100 = $67.49 

Amount to be repaid = balance plus charges = $359.95 plus $67.49 = $427.44. 
Divide this last figure by 18 to find the monthly payment which is $23.75. 


Interest rate = 12%% p.a. the 
| The rate to be ae 


So charges = $3 


So for the general case we can say: 


Deposit = Sum/10 
Balance = Sum — Deposit 
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Charges = Balance * (Interest * Period/12) 
Amount to be repaid = Balance + Charges 
Repayments = Amount to be repaid/Period. 


or, just using initials: 
D=S/10 


CoB* (1/100* 
CP alow 2 
R= A/P 


but merely give a better appearance to 
the output, or make the program easier 
to use. Of course, in business, these 
factors can be very important. 

What happens if we load the program 
into PET and then type RUN? PET 
responds with a “*?” so type in the sum 
(followed by pressing the RETURN 
key, of course). Another “?” appears, 
and you type in the interest rate, and 
finally in response to a third “?” you 
type in the period. PET now displays 
the answers, and the screen looks like 
this: 


RUN 
2? 399.95 
212.5 
218 
39.995 
23.7470313 


We would of course mentally round 
the 39.995 to 40.00 and 23.7470313 
to 23.75, but we can easily make PET 
do it for us. INT(X*100+.5)/100 will 
round X to 2 decimal places. In this 
program we only need to use this twice, 
but in others we have to use it many 
times so to save typing we can use the 
DEF statement: 


5S DEF FNA(X) = INT(X*100+.5)/100 
and then 


90 PRINT FNA(D) 
100 PRINT FNA(R) 


will produce the required result. 

It would be helpful if PET told us 
what input it wanted rather than just 
printing “?”. INPUT statements allow 
us to do this. If we amend line 10 to: 
10 INPUT “COST OF GOODS” ;S 


PET will now print: 
COST OF GOODS? 


Lines 20. and 30 -can also be modified 
similarly, and lines 90 and 100 can be 
altered to: 


90 PRINT “DEPOSIT” ;FNA(D) 

100 PRINT P; “MONTHLY PAYMENTS 
OF” ;FNA(R) 

The output will now be: 


DEPOSIT 40 
18 MONTHLY PAYMENTS OF 23.75 


This is beginning to look better, but 
there is still a lot that can be done to 
improve it. Showing the Deposit as 40 
rather than 40.00 is annoying to say the 
least. BASIC does this to all numbers, 
dropping zeros that are not significant. 
Typing PRINT 40.10 will produce 40.1 
and PRINT 00128 results in 123. There 
is a fairly simple way round this 
problem, although it looks complicated! 
We convert our simple number to a 
string which can then be “formatted” 
to produce the desired result and then 
printed. We will probably need to use 
this many times in a lot of business 
programs, so we can write the program 
section aS a subroutine which we can 
call up whenever required. 
This is: 
10000 Z$ = STRS(Z) 
10010 L = LEN(Z$)—2 
10029 IF L = 0 THEN 10060 
10030 IF MID$(Z$,L,1) = 

*? THEN 10090 
10040 L = L+1 
10050 IF MID$(Z$,L,1) = 

**” THEN 10080 
10060 Z$ = Z$ +“.00” 


10070 GOTO 10090 
10080 Z$ = Z$+*‘0” 
10090 RETURN 


The number to be printed is returned 
as Z$, but before we amend the pro- 
gram, there is one further point in 
formatting. The result would be clearer 
if the amounts were set out thus: 


DEPOSIT 40.00 
18 MONTHLY PAYMENTS OF 23.75 


Whilst in this case a simple TAB(30) 
instruction would be satisfactory, it 
would not if the deposit was 10.00 and 
payments 9.95: 


DEPOSIT 10.00 
18 MONTHLY PAYMENTS OF 9.95 


There is a very simple way to align the 
numbers. They are in string form so 
LEN(Z$) works out how long they are 
and TAB (30 — LEN(ZS)) will ensure 
that they are lined up. 


Now the program reads: 


88 Z = FNA(D) 

89 GOSUB 10000 

90 PRINT ‘“‘DEPOSIT”’; 
TAB(30—LEN(Z$));Z$ 

98 Z = FNA(R) 

99 GOSUB 10000 

100 PRINT P;“MONTHLY PAYMENTS 

OF” :TAB(30—LEN(Z$));Z$ 


We now have a fairly presentable result 
on PET’s VDU. A few PRINT state- 
ments judiciously inserted would make 
it even better, since for example, a 
simple 91 PRINT will put a line space 
between DEPOSIT and 18 MONTHLY 
PAYMENTS, making the result easier 
to read. We want this program to pro- 
vide clear answers for the novice, so 
what else should we do? For a start, it 
would help them to know that they 
had loaded the correct program into 
PET. 4 PRINT “LOAN SCHEME” 
will reassure them. Then we could clear 
the VDU screen when we have input 
the data so that the answers alone are 
shown. PRINT CHR$(147) will clear 
the screen and as we have now lost the 
input data perhaps we should also dis- 
play the cost of the goods in the out- 
put. 


81 PRINT CHR§$(147) 

82 PRINT “LOAN SCHEME” 

83 PRINT 

84 Z = FNA(S). 

85 GOSUB 10000 

86 PRINT “‘COST OF GOODS”; 

TAB(30 — LEN (Z$)); Z$ 

87 PRINT 

Just for one moment, let us suppose 
that we are now Satisfied with our 
efforts and that we think the program 
‘to be complete. We “RUN” it with the 
sample data mentioned before and PET 
immediately displays: 


LOAN SCHEME 

COST OF GOODS 399.95 
DEPOSIT 40.00 
18 MONTHLY PAYMENTS OF 23.75 


We now write down the figures and re- 
turn to the customer and proudly 
announce the results. Our efficiency 
must be obvious and surely we will 
make the sale? Alas, real life is not like 
that and we are soon deflated for the 
response is: “Oh! I can pay $100.00 
down, so what would that make the 
monthly payment?” The program that 
we have written does not allow for this 


situation, so we are back to calculations 
— or are we? No, because in the light 
of experience, we could modify the pro- 
gram. Instead of using line 40 to calcu- 
late the deposit, we could make an 
input of the deposit offered: 


40 INPUT ‘“‘DEPOSIT OFFERED” ;D 


However, think for a minute; sometimes 
the response to the question: “What 
deposit do you want to pay?” will not 
be a definite figure but “What is the 
least that you require?” We can cater 
for both responses simply by adding: 


31 INPUT“DEPOSIT OFFERED ? 
IF LOWEST TYPE MIN”;D$ 
32 IF D$ = “MIN” THEN 40 


We have made the variable D$ rather 
than D to cater for the input of MIN. 
If it is, then line 32 continues the 
program as before. But if D$ represents 
an amount e.g. 100.00, then we must 
convert this from a string variable D$ to 
a numeric variable D. D = VAL(D$) 
will do this and we can then go straight 
to line 50. | 

It could happen that the deposit 
offered was less than the minimum re- 
quired and this may not be noticed; we 
at add a line to take care of this as 
well. 


@|3 PRINTCHRS(147) 
4 PRINT"LOAN SCHEME" 


33 D = VAL(D$) | 

34 IF D(S/10 THEN PRINT ““MINIMUM 
DEPOSIT IS”;FNA(S/10):GOTO 31 

35 GO'L'O 50 

If you try running the program now, 

you will find that whilst it produces 

the required result, it also ends by 


printing RETURN WITHOUT GOSUB 


ERROR. This is because after line 100, 
which is the end of the program so far, 
PET “‘falls through” to the subroutine 
in 10000 on. A simple line 9999 END 
will prevent this. We could usefully clear 
the screen before any input is requested, 
so line 3 PRINT CHR§$(147) can be 
added. 

The listed program does now begin 
to look rather more complicated, but 
by taking it a step at a time, it’s been 
written quite painlessly. And what’s 
more, we have a program which has 
been capable of being used at any 
stage in its development — which is by 
no means completed yet. How about 
adding the facility of being able to out- 
put the payments required for all of the 
periods we offer, which could typically 
be 12, 18, 24, 30 and 36 months? We 
will tackle this and other developments 
in the next section. In the meantime, we 
have a quite useful program already. In 
a business situation it is often import- 


First listing of program ‘LOAN SCHEME’ |e 


@1S DEFFNA(X)=INT(X#1004.5)/100 . 

@| 10 INPUT"COST OF GOODS";s ” 
20 INPUT"INTEREST RATE" $1 

@| 30 INPUT"PERIOD"sP e 
31 INPUT"DEPOSIT OFFERED ? IF LOWEST TYPE MIN"SDS$ 

@/32 IFD$="MIN"THEN4O e 
33 D=VAL(D$) | | 

©) 34 IFD<S/10THENPRINT"MINIMUM DEPOSIT IS"3FNA(S/10):GOTO31 | ° 

@| 35 GOTOSO . 
40 D=S/10 , 

e|50 B=S-D ® 
60 C=Be(1/100#(P/12)) 

@|70 A=B+C . 
80 R=A/P m 

©' 81 PRINTCHR$(147) 

9 | 82 PRINT" LOAN SCHEME" e 
83 PRINT 

@| 84 Z=FNA(S) ® 
85 GOSUB10000 

@|86 PRINT" COST OF GOODS"; TAB(30-LEN(Z$))3Z$ ad 
87 PRINT “ 

©) 88 Z=FNA(D) 

@ | 8% GOSUB10000 e 
90 PRINT" DEPOSIT"; TAB(30-LEN(Z$))32$ 

@| 91 PRINT % 
98 Z=FNA(R) 

©/ 99 GOSUB10000 ° 

@| 100 PRINTP ;"MONTHLY PAYMENTS OF"; TAB(30-LEN(Z$)) 528 a 
9999 END 

@| 10000 Z$=STR$(Z) e 
10010 L=LEN(Z$)-2 

@| 10020 IFL=0THEN100460 e 
10030 IFMID$(Z$,L,1)="."THENI0090 . 

©) 10040 L=L+1 

@ | 10050 IFMID$(Z$,L,1)="."THEN1 0080 6 
10060 Z$=Z$+".00" 

@| 10070 G0T010090 a 
10080 Z$=Z$+"0" Z 

@/ 10090 RETURN 
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At last your TRS-80* can run Pascal too! 
The Chung/Yuen “tiny” Pascal is fully 
implemented for Level I! TRS-80*, 16K and 
up. You no longer need to be left out of the 
growing group of Pascal users, because People’s 
Pascal gives you everything you need to write 
structured Pascal programs: 

e tiny Pascal compiler e complete text editor 
for writing your programs ® complete tiny 
Pascal monitor e sample Pascal programs 

e users manual (TRS-80 Computing issue 1:4) 
People’s Pascal is both a powerful, structured 
language and ‘’CPU expeditor’’. People’s 
Pascal programs execute at least four times 


People’s 


Pascal 


$29-95 


faster than Basic, and often eight-times 
faster! Special functions open’ up the com- 
plete graphic capability of TRS-80*. You 
now have the means to write those dazzling, 
impressive, high-speed graphics programs 
that are great for games, plotting, statistics, 
etc. 

For the serious computerist, side two of 
People’s Pascal I! (tape 6) contains a larger 
compiler and complete source to the compiler, 
written in Pascal This means you can re- 
compile the compiler, making changes, 
adding features, etc. (but this will take at 
least 36K RAM and a solid knowledge of 
programming). 


MS MICROSOFTWARE 


With the complete People’s Pascal operating 
system, you can save and load both source 
(Pascal) programs, and compiled programs, 
to or from cassette tape. This means that 
once you have de-bugged a program, you can 
save the P-code (compiled program) and 
thereafter, to run the program, you need 
only load the super-fast P-code. 
Here is a partial list of People’s Pascal features: 
recursive procedure/functions e for (loop) 
@case if/then/else © one-dimensional arrays 
e write eread constant e repeat/until(loop) 
e’‘peek &.poke’’e plot (graphics for TRS-80*). 


Please send mail order to P.O. Box 119, Essendon, Victoria, 3040. 


$29.95 includes postage within Australia 
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15 Beryl Street, West Essendon. 


* Trade Mark of Tandy Corporation 


ant to get some useful programs run- 
ning as quickly as possible, so as to 
convince the sceptics of the value of 
the system in which they’ve invested. 
The next stage in developing our 
loan scheme program is to add the 
option of calculating the payments 
required for all the periods we offer, 
which we will take to be 12, 18, 24, 30 
and 36 months. This will enable us to 


answer the general query: “What are 
your terms for --------- ?”? quickly and 
comprehensively. This development 


does need a bit of thinking about. The 
input is easy, being very similar to that 
used for the deposit option. We shall 
have to alter some line numbers for 
reasons that will appear later, so delete 
line 30 and write: 


25 INPUT “PERIOD ? 
IF ALL TYPE ALL”; P$ 
26 IF PSO “ALL” THEN P = VAL(P$) 


Now we either have a single value 
for the period in P or we have “ALL” in 
P$. If the former, then the program as it 
stands will work; but what changes are 
needed to cope with the latter? What we 
have to do is to run through lines 
60, 70 and 80 for each value of the 
period. This obviously calls for a “FOR 
nea--- NEXT” loop. BASIC does allow us 
to specify the step between values, as 
well as the start and finish, so FOR P = 
12 to 36, STEP 6 will successively 
give the correct values to P. But what 
happens in line 80? Each time we run 
through the loop a new value will be 
calculated for R which will replace the 
previous one, so when we exit from the 
loop the only value of R available 
is the last one i.e. R for 36 months. 
Obviously, we must arrange to save the 
value of R each time it is calculated. 
Fortunately, BASIC provides an easy 
way to do this, although you may 
not think so from the jargon, for 
we construct an array using a single 
subscripted variable (or something like 
that!) All this actually means is that we 
save the first result as variable R(1), the 
second as R(2) and so on. The program 
changes the number in brackets, the 
subscript, each time we go round the 
loop, the result being that our five 
values for R are all saved as R(1) to 
R(9). 

How do we write the program to 
perform these operations? We will use 
J to keep track of the subscript and 
first we give it the value of 1, 55 J=1, 
then we set up the loop, 57 FOR P = 
12 TO 36 STEP 6. Lines 60 and 70 re- 
main the same, but we alter 80 to R(J) 
= A/P and give it the new line number 
of 77. R(1) now has the value of R 
when P = 12. J now has to equal 2 so 
79 J = J+1. We now have to go back to 
the beginning of the loop, line 57, to do 
the calculation for P = 18. 80 NEXT 
will accomplish this, and since J now 
equals 2, the result will be saved as 
R(2). This will be repeated until all five 
results have been saved and we exit 
from the loop to line 81. 

We have now dealt with the case 
when P$ = “ALL”, but what when P 
has a single value? This would work 
previously, but now we have altered 
the program by putting in a loop — 
which in this instance we don’t need! 
We must miss out the loop instructions 
and a couple of IF....... THEN 
statements in lines 56 and 78 will be 
sufficient. The complete section of the 


program now reads: 


ooJd=1 

56 IF P$O ““ALL” THEN 60 

o?7 FOR P= 12 to 36 STEP 6 

60 C=B* eee 

T0A=Bt 

77 R(J) = ATP 

78 IF P$O “ALL” THEN 81 

19J=Jt+1 

80 NEXT 

This may seem a little complicated at 
first, but once you get the idea it is 
really quite simple. It’s well worth 
making the effort to fully understand it, 
since it is a technique that is very valu- 
able in many business programs, where 
the ability to perform repeated calcula- 
tions and later recall the results is a 
necessity. 

We have just mentioned recalling 
the results, so how do we do that to 
produce our output. Very simply, just 
by using the same technique. 


vod = 1 

96 IF P$0 “ALL” THEN 98 
97 FOR P= 12 TO 36 STEP 6 
98 Z = FNA(R(J)): 

99 GOSUB 10000 


100 PRINT P; “MONTHLY PAYMENTS 
OF”; TAB(30 — LEN(Z$));Z$ 


Sample runs of program "LOAN SCHEME" 
LOAN SCHEME QUOTATION BY C.AXSON & SONS 


COST OF GOODS 
DEPOSIT 


18 MONTHLY PAYMENTS OF 


LOAN SCHEME QUOTATION BY C.AXSON & SONS 
COST OF GOOLS 
DEPOSIT 
12 MONTHLY PAYMENTS OF 
18 MONTHLY PAYMENTS OF 
24 MONTHLY PAYMENTS OF 
30 MONTHLY PAYMENTS OF 


36 MONTHLY PAYMENTS OF 


@) 35 PRINTCHRS(147) 
4 PRINT"LOAN SCHEME" 
3S DEFFNA(X)=INT(X#100+.5)/100 
INPUT"COST OF GOODS";S 
INPUT" INTEREST RATE" 51 


101 PRINT 

102 IF P$0 “ALL” THEN 9999 
103 J=J+1 

104 NEXT 


You may remember that we left a few 
spare lines after inputting the period. 
This is to allow us to check that the 
data input is valid. As the program 
stands, it will perform the calculations 
for any period of months typed in, 
even 1 or 1000. Admittedly, these are 
unlikely errors, but 21 instead of 12 
or 42 instead of 24 are very possible. 
There are many ways in which we carry 
out this check, but a simple one can be 
based on the fact that all the valid 
periods can be divided by 6, resulting 
in whole numbers (integers) ranging 
from 2 to 6. We can code this in BASIC 
in two lines. IF P/6 0 INT(P/6) THEN 
“ERROR” checks for whole numbers 
e.g. 21/6 = 3.5 an error. 42/6 = 7 will 
pass this test but will fail IF P/6 ¢ 2 
OR P/6 )6. Actually, as often happens, 
the program becomes a little simpler 
if we reverse the last test to IF P/6 
= (6AND P/6) = 2 THEN “PROCEED 
AS NORMAL”. An error e.g. 42/6 = 
7 will then carry on to the next state- 
ment which is the error message, so 
saving another jump statement. 


INCLUDING CHARGES OF 


INCLUDING CHARGES OF 
INCLUDING CHARGES OF 
INCLUDING CHARGES OF 
INCLUDING CHARGES OF 


INCLUDING CHARGES OF 


Loan scheme — final version 


INPUT"PERIOD ? IF ALL TYPE ALL"5P$ 
IFP$<>"ALL"THENP=VAL(P$):G0TO 28 


GOTOS1 
IFP/6<>INT(P/6) THENSO 
IFP/6=<6ANDP/6>=2THENS1 


PRINT" INVALID PERIOD" :GOTO25 
INPUT"DEPOSIT OFFERED ? IF LOWEST TYPE MIN" DS 


IFD$="MIN"THEN4SO 
D=VAL(DS$) 


IFD<S/1OTHENPRINT"MININUM DEPOSIT IS",FNA(S/10):G0T031 


60T050 

B=S/10 

B=5-D 

Jet 
IFP$<>"ALL"THEN6O 
FORP=12TOS6STEPS 
C(J)=B4(1/1008(P/12)) 
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The coding now is: 70 A=BtC (J) 


28 IF P/6 0 INT(P/6) THEN 30 77 R(J)=A/P 

29 IF P/6 = (6 AND P/6)=2 THEN 31 ‘ 

30. PRINT “INVALID PERIOD” : GOTO 25 78 IFP$<>"ALL“THENSB1 

There is one further valuable addition 79 JS=Jti 

we could make to the program, and that 80 NEXT 

is to give the option of having the gee 81 PRINTCHR$(147) 

put printed out. Devices external to s 

PET are given numbers and that for a 82 PRINT" LOAN SCHEME 

printer is usually 4. To output to the 83 PRINT 

external device, a file is opened — OPEN 84 Z=FNA(S) 

1,4 is the ea Now any statement 85 GOSUBI10000 

starting PRINT #1, will cause the out- " We 7 : 
put to be sent to that device. So after ee COST OF GOODS" ;TAB(SO-LEN(2Z$)); 2% 
enquiring whether the option is wanted 

and receiving the answer “yes” we run 88 Z=FNA(D) 

through a series of oe ele oy 89 GOSUB10000 

to lines 82 to 104 but with PRINT #1, " ine 7 
instead of PRINT. Actually, they are all RePUSe Tg URener Cenc rel pee 
not quite identical for you will notice 

that the TAB instructions are slightly 95 J=1 

different. This is caused by the way the 96 IFP$<>"ALL"THENIS8 

printer used, a Teletype 43, responds to 97 FORP=12TO36STEPS 

the TAB instruction. On PET, TAB(30) 98 Z=FNA(R(J)) 


causes printing to start in the 30th 


print position from the beginning of the 99 GOSUB10000 


line, but on the Teletype TAB(30) 100 PRINTP ;"MONTHLY PAYMENTS OF"; TAB(30-LEN(Z$))5Z$ 
causes printing to start in the 30th print 101 PRINT 

position from where the print head is 102 IFP$<>"ALL"THENI1I0O 

situated. This means that if we have 103 J+! 


already printed DEPOSIT, printing will 


start in print position 37 and not 30 104 NEXT 

as required. We therefore have to deduct 110 PRINT"DO YOU REQUIRE PRINTED RESULT ?" 

the length of any items already printed, 120 PRINT"IF YOUR ANSWER IS YES, THEN SWITCH" 

ge ar ea hacia Reis os 130 PRINT"THE TELETYPE ON AND LOAD PAPER" 

TAB(23) after DEPOSIT. “6. 140 PRINT"PRESS DATA BUTTON ON TELETYPE AND" 
Another addition has been made 150 PRINT"TYPE 1 ON PET KEYBOARD" 

to the printed output. If the quotation 160 PRINT"OTHERWISE TYPE 2” 

is given to the customer, we should 170 INPUTH 

show the credit charges which would be 180 IFH<>1THEN9999 

made in each case for the differing 

periods. This information is present in 190 OPENT,4 

variable C and we can use the same tech- 200 PRINT#1,"LOAN SCHEME QUOTATION BY C.AXSON & SONS" 

nique to preserve the values as we did 210 PRINT#1 

for R, i.e. C(J) is substituted for C in 220 Z=FNA(S) 


lines 60 and 70. For clarity we want to 


print the credit charges on the same line 230 GOSUB10000 


as the repayments, but we cannot give 240 PRINT#1," COST OF GOODS"; TAB(37-LEN(Z$));Z$ 
the instructions in the same statement 250 PRINT#I1 
line since we have to GOSUB to format 260 Z=FNACD) 
C(J). By ending the payment print 
instruction with a “‘;” we suppress the 270 eee noe 
carriage return and line feed, so achiev- 280 PRINTHI," DEPOSIT"; TAB(43-LEN(Z$)) 52% 
ing our object. The only other alteration 290 PRINT#1 
to the program occurs in line 102 where 300 Jz] 
we alter THEN 9999 to THEN 110 to on " 
give the printed output option. oA TFPS<>TALL™THEN 330 
We now have a fairly comprehensive $20 FORP=12TO365TEPS 
answer to our problem, which even the 330 Z=FNA(R(J)) 
most inexperienced junior can use to 340 GOSUBI0000 
give quick and accurate answers to 350 PRINT#1,P ;"MONTHLY PAYMENTS OF"; TAB(28-LEN(Z$)),Z$; 


queries. The full listing does show quite 


a complicated piece of programming, $60 Z=FNA(C(J)) 


and I certainly would not like to have to 370 GOSUB10000 

sit down write it all at one go. However, 380 PRINTH1,TAB(10);"INCLUDING CHARGES OF"5Z$ 
I hope you have seen that it really is not 390 PRINT#I 

all that complicated if broken down 400 IFP$<>"ALL"THEN9999 

into steps, as I have done. The experts be 

may scorn my methods, but they meet 410 JeJ+t 

the criteria I have laid down. The pro- 420 NEXT 

gram works and it does just what I 9999 END 

want. It operates quickly enough for 10000 Z$=STR$(Z) 

the output to be shown both on the 10010 L=LEN(Z$)-2 

VDU and the printer at the fastest . 

they will operate. No doubt it could be 10020 IFL=OTHENI0060 

made more elegant, but time is short 10030 IFMID$(2$,L,1)="."THEN10090 
and there are, no doubt, many other 10040 L=L+1 

eske co periorm, 10050 IFMID$(Z$,L,1)="." THEN! 0080 


10060 Z$=Z$+".00" 
10070 G0T010090 
10080 Z$=Z$+"0" 
10090 RETURN 
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USER GROUPS INDEX = 


VICTORIA 

AUSOM 

Apple Users’ Society of 
Melbourne. Contact Mr 


David Turk of Computerland 
Melbourne. 


Commodore Computer 
Users Association 

The newly inaugurated 
Commodore Computer Users 
Association of Victoria will 
meet regularly at 7.30 p.m. 
on the last Tuesday of the 
month at the North 
Melbourne Football Club 
Social Club, Fogarty Street, 
North Melbourne. The 
Association has a variety of 
aims in order to support 
users of Commodore Micro- 
computers and to use such 
media as newsletters, 
seminars, conferences and 
the like to inform members 
of the latest developments. 
For further details, please 
contact Nicki Saunders, The 
Secretary, on 614-1433 or 
614-1551 during business 
hours. 


Compucolor Users’ Group 
Write to Mr. L. Ferguson of 
12 Morphett Avenue, Ascot 
Vale for all the information 
necessary. 


Geelong Computer Club 

Interested people should 
contact Mr Peter McKeon, 
P.O. Box 93, Geelong, 3220 


S.C.U.A. 

Sorcerer Computer Users 
(Australia). Further details 
may be obtained from the 
Secretary, S.C.U.A., P.O. 
Box 144, Doncaster, 3108. 


S.M.U.G. 

To find out more about this 
group of SORD M100 users, 
contact Mr Robin Miller, 
60 Winmalee Drive, Glen 
Waverley, 3150. 


NEW SOUTH WALES 


Commodore User Group 
The Commodore User Group 
of Sydney considers itself 
“an effective method of 
sharing current information, 
ideas, programming _ tech- 
niques, hardware interfacing, 
and cost effective applic- 
ations relating to the Com- 
modore computers between 
commercial users and hobby- 
ists and the manufacturer”. 
A monthly newsletter is 
available to members, with 
product news, details of 
current software and a User’s 
Directory to other sources 
of information. 

For more details, drop a line 
to Mr John Guidice, C/- 
The Commodore Users 
Group, G.P.O. Box 4721, 
Sydney, 2001. 


- Compucolor Users’ Group 


If you are _ interested, 
Andrew MacIntosh of 91 
Regent Street, Chippendale, 
is the man to see. 
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* means code not implemented on 8080 . 

iar are not affected by load, 16 bit increment and 16 bit J and C 
i zero; NC — non carry; PO 


ecrement instructions 
n means a single byte 
nn means a double byte 
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Op codes CB, DD, ED and FD include all bit operations 


L mnemonics are conditioned by: NZ — non 
— parity odd; P — sign positive; 


4 — zero; U — carry; PK — parity even; M — sign negative 


patient 
(HL) means that the contents of the address given in HL etc... 


SOAT 

80 Applications Transfer. 
A new group formed to 
serve all users of 80 series 
microprocessors (8080, 
8085, Z80). 

The group will function as 
a software exchange and 
applications forum for 
Australian 80 series micro- 
processor users from ll 
applications spheres,  in- 
cluding industrial, scientific, 
business and hobbyist. A 
newsletter will be published 
bi-monthly and get togethers 
will be held periodically. 
80OAT has software from the 
CP/M Group available for 
distribution and is currently 
negotiating to gain access to 
the PROTEUS _ software 
library and other applic- 
ations libraries. Software 
currently available from the 
80AT software resources 
ranges from simple I/O 
programs through system 
utilities up to complete 
languages such as STOIC, 
ALGOL-M and FELIX. 
As 80AT is strictly a spare 
time activity for the con- 
venors it would be apprec- 
iated if all enquiries are by 
mail only: To 80AT, C/- 
Planet 3 Systems, 47 Birch 
St., Bankstown, NSW 2200. 


QUEENSLAND 

Brisbane Youth Computer 
Group 

Mr. A. Harrison, P.O. Box 
396, Sunnybank, 4109, 
should be contacted for 
more information. 


IREE Microcomputer 
Interest Group 

Enquiries should be directed 
to Mr. N. Wilson, P.O. Box 
81, Albion, 4010. 


SOUTH AUSTRALIA 
TRS80 Users’ Group 

To obtain details contact 
Mr. G. Stevenson of 36 
Sturt Street, Adelaide, 5000 


A.C.T. 

MICSIG 

Further information con- 
cerning MICSIG, from the 
Registrar, MICSIG, C/- P.O. 
Box 446, Canberra City, 
2601. 


NEW ZEALAND 

Wellington Microcomputer 
Society Inc. 

Write to Lindsay Williams, 
2 Pope Street, Plimmerton, 
New Zealand. 
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, IN STORE 


AUSTRALIA’S MOST UP-TO-DATE BUYER’S GUIDE 
FOR MICROCOMPUTERS 


Month by month, every effort will be made to keep 
In Store up-to-date and accurate. 
And that means APC will always be happy to hear from its readers 
of any errors, and additions that seem worthy of inclusion. 


LIST OF ABBREVIATIONS _ 
A -- Assembler K/B — Keyboard © 
A/D — Analog to Digital M/A — Macroassembler 
B/W — Black and White N/A — Not Available 
C — Cassette N/P — Numeric Pad 
cps — Characters per second O/S — Operating System 
Doc — Documentation P/P — Parallel Port 
E — Extensive RAM — Random Access Memory 
Ed — Editor ROM — Read Only Memory 
Ex — Extended res — Resolution 
F/D — Floppy Disc 5 — Software 
H — Hardware S/P — Serial Port 
I — Introductory T/E — Text Editor 
I/O — Input / Output 16; — Utility . 
int — Interface VDU — Video Display Unit 


All prices shown are exclusive of sales tax, except where indicated by an asterix. 


Software items listed in /ta/ics are not included in the basic price of the equipment. 


Name of Main Hardware Software Doc] Price Comments 
Machine Distributor 
& Phone No 
Apple II Computerland | 16-48K RAM: 6502: colour | O/S: BASIC: E |$1395 | 280x192 high res colour 
plus (03) 62 5581 | VDU int.: 81/0 slots: Pascal: games graphics: Applesoft 
(02) 29 3753 | games paddles: option 5%” BASIC in 12K.ROM 
F/D (116K) and 11 MB disc 
Century Abacus C100, 48-64K RAM: Z80: Also available: C300 
Computer 12” VDU: 2x5%” F/D 
Store (2x143K): 112 cps printer: 
(03) 429 5844 | RS232 port: S100 bus: 
C200 includes 2xF/D 
(2x315K): hard disc: 
P 
Challenger IP | Systems 4-32K RAM: 6502: C int: O/S: BASIC: A: $448 8K microsoft BASIC in 
7 Automation 24x32 VDU int: RS232 games ROM: expansion board 
(02) 439 6477 | port: option — dual 5%” available 
F/D (140K) 
Challenger 4 Systems 8-48K RAM: 6502: colour | BASIC: Pascal I |$871 BASIC in 8K ROM 
Automation 32x64 VDU int: RS232 
(02) 439 6477 | port: P/P: option — 6502C 
microprocessor; dual 5%” 
F/D (140K) 
Compucolor Anderson 8-32K RAM: 8086: 13”, ExBASIC(ROM):A $2095 {16K model, $2395: 32K 
II Digital 32x64 8 colour VDU: $2695: maintenance 
Equipment single 5%” F/D (51K): manual available 
(03) 543 2077 | RS232 port 
Cromemco — 64-512K RAM: Z80A: CDOS: BASIC: E All Systems expandable to 
System 2, System 2, dual 5%” F/D COBOL: FORTRAN: multi user (2-7 users) 
System Z2H, (346K): System Z2H, M/A: ExBASIC: $2880—$8825 
System 3 also Winchester disc Structured BASIC 
(11MB): System 3, 8” 
dual 1MB: S/P: P/P 
Exidy Dick Smith 8-48K RAM: Z80: O/S: ExBASIC I |$1295* |High res graphics capability: 
Sorcerer Electronics 30x64 VDU int.: (ROM): M/DOS: 16K version $1395*: 
Model II (02)888 3200 |RS232 Port: P/P: CP/M 32K version $1525*: 


S100 bus:extra C int. 48K version $1655*: User 
programmable character set 
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Name of 
Machine 


HP-85 


IPS-100 


Microengine 


North Star 
Horizon 


Pet 2001 


Sord M100 
ACE III 


Sord M223 


TRS-80 
Level 1 


TRS-80 
Level 2 


Vector 
Graphics 
System B 
Versatile 4 


Acorn 


Aim 65 


SBC100 


Superboard 


Main Hardware Software Doc) Price omments 
Distributor 
& Phone No 
Hewlett 16-32K RAM: N/A: BASIC S ; $3550 |Full dot matrix graphics: 
Packard 5”. 16x32 B/W VDU: N/P: compact portable unit 
Australia C(200K): 64 cps 
(03)89 6351 printer: RS232 port: 
4x P/P 


Microprocessor | 32-896K RAM: 8085: E | $3750 

Applications 2 RS232 ports: $100 , 

(03) 754 5108 | bus: dual 5%” F/D CBASIC: FORTRAN: 

(630K) COBOL 

Daneva Control |}64K RAM: MCP 1600: BASIC: Pascal: File |E | $2995 Also available as board 
(03)598 9207 |2x RS232 ports: Manager: U 

2xP/P: Options — dual 


O/S: Ex BASIC: 
Ed: A: CP/M: 


Abacus ripe 

C t 5%” F/D (Single or dble 
Store. for ‘ density); 8” F/D (single 
complete or dble density) 


system 
(03) 429 5844 
Melbourne’s 


Byte Shop 
(03) 568 4022 


$2695 


DOS: BASIC: 
COBOL: FORTRAN: 
Pascal: CP/M: M/A 


O/S: BASIC: A 8K $1199 jOptions — dual 5%” 
16K $1859 |F/D (353K), $2329: 
B2K$2249 |$109 for disc operating ROM 


O/S: ExBASIC $4500 |M100 ACE IV — 8 colour 
FORTRAN graphics controller incl. 


32-64K RAM: Z80A: 5%” 
F/D (170K): 2xS/P: 

1P/P: optional — VDU 
($1350); Quad density F/D 
8-32K RAM: 6502: C: 
9”? 25x40 B/W VDU: 
extra C Int: IEEE488 port 
48K RAM: Z80: 24x64, 
Digital 12” VDU: RS232 ports: 
Corporation 2x5%” F/D (2x143K): 
(02) 436 1600 | S100 bus: 2 octave 
oe speaker: A/D Conv.: 


option—8 colour graphic 
kG) 429 S844 controller ($1450 


Hanimex 
(02) 938 0400 


Alliance 


Alliance 64K RAM: Z80: 127? O/S: ExBASIC: I $7500 
Digital 24x80 VDU: 2xRS232 FORTRAN: COBOL 

Corporation port: S100 bus: 5%” 

(02) 436 1600 | F/D (350K) 

Abacus 


(03) 429 5844 


Tandy 4-16K RAM: Z80: C: BASIC: Games: A $699*  IBASIC in 4K ROM: 
Electronics 127 16x64 B/W VDU upgradable to Level 2 
(02) 638 6633 


Tandy 4-48K RAM: Z80:C:12”, BASIC: M/A: $879* 16K machine includes 
FORTRAN: N/P: 4-16K upgrade $320*: 
COBOL ($250* without N/P): 
max. config. $1169*: 
option — single 5%” F/D 
(78K), (max of 4) 


Electronics 16x64 B/W VDU: 
AJ & JW Dicker} 64K RAM: Z80: Dual 5%” | DOS: BASIC: A: E | $6350 |Graphics and numeric pad. 
(02) 524 5639 | F/D (630K): 12”, 24x80 CP/M: Ed 

B/W VDU: S/P: 2xP/P 


(02) 638 6633 | RS232 port: P/P 
Microprocessor | 32-56K RAM: 8085:9”, MBASIC: MDOS E | $5692 


Applications 24x80 B/W VDU: dual (including T/E and 
(03) 754 5108 | 5%” F/D (630K): S100 A): Version 4 
bus: 2xRS232 MDOS AND 


BASIC: CP/M 


SINGLE BOARDS 


Cottage 1-8K RAM: 6502: EPROM | %K monitor: 
Computers socket: Hex K/B: C int: S& 


System1 |Universal interface card 


(03) 481 1975 |8 digit LED display: up to H | $285: available. 
16 ports: options — Euro- Systemll 
card 64 way connector; $1224: 
VDU card; Full K/B card SystemllIlI 
(incl.a5%” 
F/D), 
$2763 
Dwell Pty Ltd |1-4K RAM: 6502: 8K ROM:| 8K monitor in E | $525* ase available $75* 


(02) 487 3111 | full K/B: 20 character ROM: A: 
LED display: 20 char- BASIC 
acter thermal printer: 


Cx2 int: 1 P/P 


Microtrix 1K RAM: Z80: 8K 1K monitor: DOS E | $299 Also available assembled 
(03) 718 2581 a S100 bus: 1S/P: in ROM $374 
1P/P | 


Systems 4-32K RAM: 6502: 10K BASIC: games I $360 BASIC in 8K ROM 
Automation ROM: full K/B: 24x32 
(02) 439 6477 | VDU Int: C int: options— 

RS232; dual 5%” F/D 

(140K) 


PROGRAMS 


Written for a Level II TRS-80, Byte 
Saver is a good adjunct to the many 
BASIC renumbering programs which use 
spaces to compensate for shorter line 
numbers being inserted in the program 
text (eg. 1030 might be replaced by 430). 


Byte Saver 


by Peter Dillon 


code into the string in line 65300. 
The memory position of the routine is 
located using the VARPTR function 
and the reserved word, NAME, is used 
to call the routine. Whenever the 


interpreter encounters the word NAME, 
it jumps to a machine language routine 


short merge program and RUN it; then 
CLOAD the program requiring com- 
i ge After it has loaded type 
OKE 16548, 233: POKE 16549, 66 
and RUN again. Now the Byte Saver 
can be loaded and RUN. 
Byte Saver will remove all spaces in 


It is also a good way of tidying-up and 
compressing programs during their dev- 
elopment. 

ather than requiring memory size 
to be set, Byte Saver POKEs its machine 


who’s entry point is given by the values 
at memory locations 16783 and 16784. 
To use Byte Saver, first CLOAD the 


the Ae ake text we those followin 
REM statements or between inverte 
commas. 


MERGE 


@ K=PEEK(17129) +PEEK (17130) *256 
1 J=K:K=PEEK(J>+PEEK (J+1) #256: ITFK=@THENPOKEI E5468, J-INT (J/256)*256 5 POKE1L6549, INTC 
J/256) ENDELSE1 


BYTE SAVER 


65000 CLS:NEXLIN=17129: P=PEEK (16548) +PEEK (16549) #256 

65005 PRINTCHRS(23) =PRINT@128, "ORIGINAL MEM REG. "3P-17129:PRINT:PRINT "NO. 
TO BE CHECKED" 

£5010 GOSUBES=22@ 

65020 IFNEXLIN+NOMOVES=PTHENPOKENEXLIN, @: POKENEXLIN+1, @: POKE1G548, 233: POKE1E549, 
GE:PRINT:PRINT"MEMORY SAVED";P-NEXLIN® END ELSE GOSUBES10@ 

65040 MP=MP+1: IFPEEK (CMP) =@0RPEEK (MP) =147THENESO20 

65050 IFPEEK (MP) =34THENFLAG=FLAG+—1 

65060 I[FPEEK CMP) =22ANDFLAG=— 1 THENGOSUBES202 

65072 PRINT@AS@4, P-MP—-NOMOVE-2: GOTOES5048 

65100 REM Aoieiot FINDS MEMORY POSITION OF NEXT LINE >: 

6511@ MP=NEXLIN: OLDLIN=NEXLIN 

65120 NEXLIN=PEEK CMP) +PEEK (MP+1) +256 

65130 MP=MP+2:FLAG=—1 = RETURN 


BYTES 


65200 REM qe: MOVES BLOCK OF MEMORY +e: 
65205 REM AND ADJUSTS POINTERS 
6521@ NUMBYTES=P—MP—1 = SOURCE=MP+1 = DEST IN=MP = NOMOVE=NOMOVE+1 = MP=MP—1 = NEXLIN=NEXLI 


N-1 
65248 
65252 


65260 


POKEK+2, SOURCE-INT ¢SOURCE/ 256) #256: POKEK+3, INT CSOURCE/ 256) 

POKEK+5, DESTIN-INT (DESTIN/ 256) #256: POKEK+E, INTCDESTIN/ 2562 

POKEK+&, NUMBYTES-INT CNUMBYTES/256) #256: POKEK+9, INT C(NUMBYTES/ 256) 

65270 NAME: POKEK+2, 1° POKEK+S, 1: POKEK+S, 1:POKEK+9, 1 >HD=OLDLIN 

65260 HA=PEEK CHD) +PEEK CHD+19*256-—1 5 POKEHD, HA-INT CHA/256) #256: POKEHD+1, INT CHA/256 
>: IFPEEK CHA+NOMOVE+2) +PEEK € HA+NOMOVE+2) +256=65008THEN RETURN ELSEHD=HA: GOTOES2ZEO 
65300 Z$="12245675901 234" yee = LOADS M/L ROUTINE ttt: 

65310 DATAZ17, 33. 2) 2.17.1, 60) 1) 2) 2. 227,176) 217, 281 
65320 J=VARPTR(Z$) SK=PEEK(CJ+1)+PEEK (J+2) #256 

653230 FORL=KTOK+13: READM: POKEL, M: NEXT 

65340 POKE167&83, PEEK( J+1) 5 POKE1E7&4, PEEK( J+2) RETURN 


SOF TWARE 


AUSTRALIA’S MOST COMPREHENSIVE CATALOGUE 
SEAHORSE 


supplies more than 470 programmes from: 
MUSE / FROGRAMMA / MICROSOFT /MICROSENSE / LIFEBOAT /GEMSOFT 


for the 
APPLE 
CBM ‘PET’ 
TRS-80 
SORCERER 
$1.00 inc. p & p refundable with order 


Please specify your computer. 


SEAHORSE COMPUTER SERVICES 
P.O. Box 47, Camden, N.S.W. 2570 
Old S. Rd. Razorback, N.S.W. 
Telephone: (046) 366 131 


50 APC 


The following program uses among 
other routines, a machine language sub- 
routine to provide for very rapid move- 
ment of large number of bytes. 

_ In_its wisdom, Microsoft did not 
include a MOVE command and in doing 
so forfeited an opportunity of creating 
a ete capable of rapid manipul- 
ation of large blocks of memory. The 
routine used in TRS-80 Graphics is 
fourteen bytes long and includes the 
size of the memory block to be moved, 
source address and destination address. 
In this case the block of memory is set 
at 1024 bytes corresponding to a full 
video screen. Source and destination 
addresses are POKEd into the routine 
according to whether information is 
to be transferred to the screen from 
memory or vice versa. Lines 1000 
to 1030 POKE the machine code into 
memory beginning at 21980 and 
memory size should be set to this value. 
Memory from 22000 to 32767 is used 
to store ten screens numbered 0 through 
9. Rather than tying up the USR 
command, Graphics utilizes the reserved 
word NAME which is assigned an entry 
point in line 1020. The USR command 
is therefore free to be used for other 
machine language routines. 

The Graphics oe is designed 
for a 16K Level II machine and uses 
the numeric keypad’s two left columns 
(i.e. keys 1, 2, 4, 5, 7 and 8) to corres- 

ond to the six pixels per video byte. 
ey “QO” will fill the current cursor 
osition and “.” will clear it. The 
Our arrows are used to move the 
flashing cursor in their respective 
directions. 

To move a screen to memory, press 
key “M” and then the desired memory 
number (0-9). The contents of any 
memory can be called upon by pressing 
the “‘R” key and then the appropriate 
number (0-9). Once created, a screen 
can be saved on tape. First put the 
screen in a memory (by typing for eg. 
“M4”’) then press the “S’’ key followed 
by ‘4’. Ensure the cassette player is 
in the record position before executin 
the memory to cassette routine. Shoul 
you press the “S” or “I” key accidently 
+ will have lost the current screen 

ut can recover the command mode by 
pressing the key “E”. The recorded 
screen can be input from the tape by 
typing “I” followed by the memory to 
be used to store the screen. 

The Draw subroutine can be accessed 
by typing “D”. It provides an easy 
way of developing extensive layouts on 
screen by compensating for another of 
Microsoft’s omissions, the PLOT function. 
In addition to this, circles may be 
produced by indicating centre and 
radius. No more than 15 of each of 
circles and lines may be requested at 
any one program run and each line or 
circle is specified by a number from 
0 to 14. 

A summary of executable routines 
is given by typing shift “H” while in 
the command mode. 


PROGRAMS 


TRS~80 Graphics 


by Peter Dillon 


5 REM >>) GRAPHICS PROGRAM <<< 
1@ CLS:CLEARSQ@O:DEFSTRI:DIM ACi7):DIM L¢14,4):DIM CC14, 3) = P=15260: SA=21982:DA=Z1 
985 
12 DATA 55,56, 52,52, 49, 50, 48, 46, 91,10,5, 9, 104,77, 82, 82, 73, 68 
14 FORX=0T017:READA:ACX)=A!NEXT 
16 GOSUBIQ12 
1S REM COMMAND MODE 
2Q [=INKEY$: IFI=""THENE=PEEK (P) POKEP, 191:POKEP,E:GOTOZ@ ELSE GOSUB25:GOT02@ 
25 ASASC(I) 
3Q FORX=OT017: IFACX) () ATHENNEXT? RETURN 
5 ONX+iGOSUEGQ, 4Q, 4Q, 42, 40, 40, 42, 44, 62, 64, BE, GS, 70, 105, 105, 2002, 7012, 4000 
3S RETURN 
=9 REM MOVES SCREEN INDICATOR , 
4Q IFPEEK CP) <) S2THENPOKEP, PEEK (P)+21X!RETURN ELSEPOKEP, 128+21X? RETURN 
42 POKEP, 191:RETURN 
44 POKEP, Z2:RETURN 
62 IFP) 15424THENP=P-64 
E= RETURN 
64 IFP(16320THENP=P+64 
65 RETURN 
EG IFP) 1SS6QTHENF=P-1 
67 RETURN 
S IFP 16283 THENP=P+ 1 
69 RETURN 
7@ CLS: PRINTCHRS( 23) 
72 PRINT?PRINT"’M? MOVE SCREEN YO MEMORY":PRINT"? R’ 
RINT"’S? SAVE SCREEN ON TAPE" PRINT"? I’ 
RAW ROUTINE" :PRINT"SHIFT 7H’ 
TINUE" 
74 GOSUB19000:CLS: RETURN 
1@@ REM MOVES SCREEN TO MEMORY AND VICE VERSA 
105 IFI="M"THENMI=1ELSEMI=0 
i@6& GOSUB12000 
11@ IFASCC1) (480RASC (12) S7RETURN 
140 MA=22000+VAL (1)+1024:MB=MA- INT (MA/ 256) #256 :MC=INT (MA/256) 
145 IFMI=1THENPOKESA, O: POKESA+1, 60: POKEDA, MB: POKEDA+1,MC!NAME ELSEPOKESA, MB: POKE 
SA+1,MC:POKEDA, @: POKEDAt+1, 60 NAME 
240 P=15260: IFMI=1THENCLS 
35@ RETURN 


RECALL SCREEN FROM MEMORY" =P 
INPUT SCREEN FROM TAPE" =:PRINT"’D’ GOTO D 
FOR HELP ROUTINE" :PRINT:PRINT' PRESS ANY KEY TO CONT 


1@@@ REM LOADS M/L ROUTINE 

1010 DATA 217,323, 8 82,17, 1,60. 1.0.4, 227,176, 217, 201 
1020 POKELGE7&3, 220: POKE167&4, 85 

1G20 FORX=2198@TOZ1992: READY = POKEX, Y!NEXT: RETURN 


1999 
2800 
2018 


REM MEMORY TO TAPE ROUTINE 

CLS: PRINT@9S@, "PRESS ANY KEY TO CONTINUE" 

GOSUB10000: IFI="E"THENCLS: RETURNELSECLS 

2020 PRINT'WHICH SCREEN DO YOU WANT SAVED" :GOSUB10@@@: X=VAL (1)+1024+22008:CLS 
2038 FORZ=OTOZ!AS="B" :FORY=OT0229: AS=AS+CHRS (PEEK ( X+Y+Z#240) ) ENEXTYF AS=AS+"E" EPR 
INTMIDS CAS, 2, 240) 5 =PRINT#—-1, AS*NEXTZ 

2040 A$S="B" :FORY=OTOBS : AS=AS+CHRS ( PEEK (X+960+Y) 2 INEXTY SAS=AS+"E" FPRINTMIDS CAS: 2, 
64)3 :PRINT#—1, AS: RETURN 

3@0@@ REM TAPE TO MEMORY ROUTINE 

3010 CLS:PRINT"PRESS ANY KEY TO CONT INUE" : GOSUBi1@@@@: IF IT="E" THENCLS: RETURNELSECL 


S 

3Q20 PRINT" INTO WHICH MEMORY DO YOU WANT THE SCREEN TO BE PUT" : GOSUB1@0@O0= X=VAL ¢ 
1)*1924+22000:CLS 

SOI FORY=OTO=: INPUT#—-1, A$! AS=MID$ CAS, 2, 240) : PRINTASs SFORZ=OTOZ29: POKEX+Y#240+Z, 
ASC CMIDSCAS, Z+1,1)) =NEXTZ,Y 

2040 INPUT#-1, AS! AS=MID$CAS, 2, 64) tPRINTASs tFORY=OTOE3: POKEX+960+Y, ASC (MIDS (AS, Y+ 
1,133 :NEXT® RETURN 

4@@@ REM MENU FOR DRAWING, SAVING etc. SCREENS 

4010 CLS:PRINTCHR$ (22) =PRINT?PRINT"TYPE:"?PRINT"’C’ TO ORDER CIRCLES"=PRINT"’L’ 
TO ORDER LINES":PRINT"’D’ TO DRAW LINES/CIRCLES":PRINT"’E” TO ESCAPE TO COMMAND 
MODE ":PRINT"’@’ TO SEE A LIST OF ALL ORDERS": GOSUBIQ0G0 

4020 IF l="L" THENGOSUBGQ4@ELSEIFI="C" THENGOSUB4 1Q0ELSEIFI="D" THENGOSUB452@@: RETURN 
ELSEIFI="A" THENGOSUB4SSS5ELSEIFI="E"THEN CLS:RETURN 

4025 GOTO4012 


4040 CLS:INPUT"PLEASE ENTER LINE NUMBER “s3Y?L¢Y,@)=1 


4950 INPUT"PLEASE ENTER LINE NUMBER’S ORIGINATING COORDINATES "3Y1,Y2 
4@60 INPUT"AND TERMINATING COORDINATES "3Y3, Y4 

GO7O LOY, LIHVLILCYs BPHVEIL CY, FIBVSIL CY GI=V4 

4060 RETURN 

418 CLS 

4110 INPUT"PLEASE ENTER CIRCLE NUMBER'GN 

412@ INPUT"PLEASE ENTER DESIRED RADIUS":R 

4120 INPUT"PLEASE ENTER COORDINATES OF CENTER OF CIRCLE"SX,Y 

4140 CON, @=1:CON, 1I=RICON, SI=XECCN, FI=VE RETURN 

4500 CLS 

4510 FORX=@T014:1FL¢X, 0) =Q@THENNEXT :GOTO45i2 

4520 DY=L CX, 4)-L OX» 2) !DX=LOX, S)-L OX, 1) TFDX=Q@THENFORY=L¢X, 4) TOL CX, 2) STEPSGNCEL CX, 
DI-LOX, 42) SSETCLOEX, 19, Y) INEXTY, X?GOTO4522 

4522 J=DY/DX=2K=L¢X,2)-J*L (Xs 1) 

4524 FORKX1=0TO127 

4526 IFXi<L¢X, 1)ORX1) LX, 3) THENNEXTX1, X?GOTO4532 

4525 Y=JeX 1+K: [FY <4SANDY) =@THENSET (X1,Y? INEXTX1, X?GOTO4522 


NEXTX1i, X:GOTO4532 


453 


4522 FORM=@T014: IFC¢M, 0) =Q@THENNEXT = RETURN 

45234 FORY=C¢OM, 2)3-COM, 1) TOCCM, 394+CCM) 1d 

4536 FORN=-1TOISTEPS 

4536 XSQUARED=C CM, 1)72—CCY-COM, 3) 27: TFXSGUARED (@THENNEXTN; Y> M? RETURNELSE X=(SQ 
RCXSQUARED) #2. 1S#N+C CM, 2) 2 IFX) =WANDX (=1 27THENSET (X,Y) FNEXTN: Y2 Mi RETURN ELSE NEX 


TN, Y2 M2 RETURN 


4555 CLS:PRINT"LINE NO. ", "ORIG. COORDS. ", "FINAL COORDS. " 

4568 FORX=0T014: IFL(X, @) =OTHENNEXTELSEPRINTX, LEX, L23L0X 29s LCXs 3) FLCXs A) ENEXT 
4570 PRINTA96Q, "PRESS ANY KEY TO CONTINUE"S :GOSUB10000 

4580 CLS:PRINT"CIRCLE NO. ", "CENTER COORDS. ", "RADIUS" 

4590 FORX=@T014: IFC(X, @) =OTHENNEXTELSEPRINTX: COX, 23 3CCXs 2), 00X, 19/22 NEXT 

4600 PRINT@SE@, “PRESS ANY KEY TO CONTINUE"; :GOSUB1@@0@=:CLS: RETURN 


19@9@ I=INKEY$: IFI=""“THENI@B@BELSERETURN 


APC 31 


WATASOFT Word Processor 


MICROCOMPUTER The following listing is suitable for an 8K Exidy Sorcerer. 
SOFTWARE Our thanks to Tony Hailes. 
Proudly present the | 
10 CLEAR4500 
largest range of software 11 PAINTTAB(10):"“SIMPLE WORD PROCE SSEA™ 
| 12 PAINT 
in the world for the 1S DIMA$(1D0) 
COMMODORE MICRO 16 FORA#1 TOS: READA1: NEXT 
FORAs0T014 
COMPUTER. : READA' : 
20 POKEA,A1 
24 NEXTA 


25 DATA76,80,65,70,67 
27 DATA245,253,126,61,246,128,253, 119,69 ,211,254,241,195, 18,224 
45 PRINT” TYPE IN YOUR TEXT, EACH LINE STARTING WITH A ™-CHA$(34) 


‘“PETSOFT”’ 


Over 200 programs 
Including:- Over 40 
Business Programs Over 
65 Programming Aids & 
Tutorial Programs. Over 
60 Simulations and 
Games Programs. 


46 PRINT "AT THE END OF EACH LINE, PRESS RETURN.” 
47 PRINT WHEN YOU HAVE FINISHED, TYPE \(END] .” 
50 NeN+1 

60 INPUTAS(N) 

80 IF A$(N)<>” LEND )” THENSO 
85 N=xN—1 

90 PAINT: PRINT: PRINT 

100 PRINT’ YOUR LETTER,.... 
110 PRINT 

115 PARINT“LINE”™ 

120 FORAw1 TON 

130 PRINTA: CHAS (34 ):A$(A) 
140 NEXTA 
150 PRINT 
160 PRINT™ 


161 PRINT 

165 IFB=a1THEN240 

170 PRINT: PRINT EVITING.” 

180 PRINT”COMMANDS; ™ 

190 PRINT: PRINT"LIST - TO LIST LETTER” 

200 PRINT”“PRINT = TO PRINT LETTER ON PRINTER” 
210 PRINT" <tINE NUMBEA> —- TO CHANGE THAT LINE” 
211 PRINT"-<LINE NUMBEA> - TO DELETE THAT LINE” 
212 PRINT” <LINE NUMBEA>+0.5 - TO INSERT A LINE™ 
213 PRINT”ADD - TO ADD LINES ONTO THE END” 
214 PRINT“FIND - FINDS ANY SEARCH STARING IN THE TEXT” 
215 PRINT”CHANGE - TO INSERT OR DELETE ANYTHING IN ONE LINE” 
220 PRINT 

230 Bel 

240 INPUT”COMMAND”:A$ 

250 AeVAL (A$) 

255 IFA<>0THEN290 

256 RESTORE 

260 FORA1=£21T05 

270 AEADA2 

275 IFASC(A$) #A2 THEN279 

277 NEXTA4 

278 GOTO180 

279 ONA1GO0T0100,500,50,750,820 

280 IFA=0 THEN240 

290 IFA>NTHENN2A 

292 IFA<0 THEN690N 

295 IF INT(A)<>ATHEN630 

300 PRIN TA=1: CHAS (34): A$(A-1) 

340 INPUT” ":A$(A) 

330 PRINTA+1:CHA$(34) -A$(A+1) 

340 GOT0240 

500 PQKE8142,0 

810 A%=PEEK (8144 ) 

520 A2aPEEK(8145 ) 

530 POKE8144,0 

540 POKE8145,0 

550 NULL4 

555 PAINT: PRINT: PRINT: PRINT 

560 FORAs1 TON 

570 PRINTA$(A) 

580 NEXTA 

590 POKE8144,A1 

600 POKE8145, A2 

610 NULLO 

620 END 

630 FOR IsNTO(INT(A)+1) STEP=1 

640 A$(I+1)sA$(I) 

650 NEXT 

660 N=N+1 

670 AzINT(A)+4 

680 GOTO300 

690 AsABS(A) 

700 FOR I=A+1TON 

740 A$(I~1)2A$(I) 


e Both cassette and 
disc based programs 
available. 


e No hassle 
guarantee - if our 
programs don’t load, 
we will replace free 
of charge. 


e Write or phone 
now for our fabulous 
free catalogue. 


DATASOFT 


139 Guildford Road, 
MAYLANDS W.A. 6081. 
Tel: (09) 271 71689 
Agents required all 
States. 


PROGRAMS 


720 NEXT 

730 NaN-1 

740 GOT0240 

750 INPUT“ENTER SEARCH STARING: “:B$ 


S 
760 B=aLEN (BS) 
©) 970 FORIe1TON 
780 GOSuUB 1000 
@| 782 IFC$="" THENSNO 
784 PRINTI:C$:PRINTI; 
@| 785 IF T=1THEN795 
786 FORJ=1TOT-4 
788 PRINT” “: 
@| 790 NEXTu 
795 PRINT™*” 
@| 800 NEXTI 
810 GOTO240 
820 INPUT“ENTER LINE NUMBEA™:I 
@) 830 INPUT"ENTER OLD TEXT”:B$ 
835 BsLEN(8$) 
@| 840 GOsus-1000 
880 IFC$<>”~” THENSSS 
860 PRINTI:A$(I) 
@| 870 PRINT"ERROR - TEXT NOT FOUND” 
880 GO0TO240 
@| 885 INPUT"ENTER NEW TEXT”;C$ 
887 CsLEN(C$) 
@| 288 A$=A$ (I) 


A$(I )=MID$(A$,1, T-1)4+C$ 
IF T-1+B>A THENSOO 
A$(I)=A$(I) +MID$(A$, T+B,A-B-T+1) 
PRINTI:A$(I) 
6Q T0240 

ce.” * 

A=LEW (A$(T) ) 

FORT=1TOA-B+1 
IFMID$(A$(I),1,8)<>8$THEN1060 
C$=-AG (I) 

G0 T0-1070 

REXTT 

RE TURN 


This program, for Appleti, is written 
in Applesoft, and makes use of the low 
resolution colour graphics facility. 

The object of the game is to get a 
spacecraft from the bottom of the 
screen to the space station at the top, 
without being hit by any of the aster- 
oids, and without hitting the sides of 
the space station. You move the space- 
craft using paddle 1. The program inter- 
prets its value in one of three ways: 
with the control fully anticlockwise the 
craft will step left; with it fully clock- 
wise the carft will step right; with it 
central it will not move horizontally at 
all. In addition, if the pushbutton on 
Paddle 1 is pressed the craft will move 
up. 

The program allows up to five craft 
to reach the space station, but this can 
be altered if desired by changing line 
470. At each iteration the outline of the 
craft is checked to see if it has changed 
colour; if so, then it has been hit by an 
asteroid, or has collided with the space 
station. If the craft is hit it is destroyed 
and a new one must be launched. If 
there are none left then you are doom- 
ed. Moreover, each craft has only just 
enough fuel to reach the space station. 
The fuel level is shown by a red bar at 
the left of the screen. If this bar falls to 
zero then the craft will stop, and will be 
helpless until hit by an asteroid. (If it 
stops in the space station, but without 
docking, then the game is lost, as it 
cannot be removed in time). 

The area in front of the space station 
is protected so that no asteroids appear 
there. Similarly, asteriods do _ not 
appear on top of the spacecraft at the 
start of the game. 


Space Slalom 


by Geoffey Salt 
and Steve Withers 


GOTO 400 
REM HIT CHECK 
IF F4 = CO AND FO = 19 THEN 720: REM DOCKED SUCCESSFULLY 
X = SCRN( FOrF7) + SCRN(C POsFSé) + SCRNC POsF6 + C1) + SCRNC FO + ClisF4) + 
X = X + SCRNC FO + CisFé + C1) + SCFPNC FO + C2sF6) + SCRNC PO + C2sF6 + C1) + 
IF X = = 135 THEN RETURN 
GOSUB 850 
SC = SC ~ C1: IF SC = CO THEN 1220 
TEXT : HOME + FRINT “THE SFACECRAFT HAS BEEN DESTROYED.*: FRINT 
FRINT "YOU ONLY HAVE *+SC%* SFACECRAFT LEFT. * 
FRINT $ FRINT "FRESS ANY KEY TO LAUNCH THE NEXT ONE*S 
FOF : GOTO 480 
REM CRAFT FLOT 
Fo = FDL (CO) 
IF FU = 47 ANDI ABS (19 ~ FO) : = C1 ANT F4 = = C3 THEN 1270: 
IF FU = 47 THEN RETURN $ REM NO FUEL 
VT = COtHR = CO? REM MOVE DIRECTION 
iF FEEK Y ~ 16287) 127 AND F4 = CO THEN VF = ~ C1 
iF OF =O ANT FO Ci THEN HR = Ci 
IF F 200 AND FO 37 THEN HR = C1 
IF VT = CO AND) HR = CO THEN KETURN : REM NO MOVE 
COLOR= CO: GOSUR 250: FLOT COsFUSFU = FU + C1? FOKE 8787150! FOKE 87920: 
FO = FO + HRSF4 = F4 + VISF6 = FS + VISEZ7 = F7 + VTi REM NEW CRAFT LOCATION 


COLOR= 153? 

VLIN F6xF7 AT FO? 

REM ASTERQOING 

FOR I = Ci TO AS 

COLOR= CO?% 
ACI»C2) = ACI»sC2) + SF 


IF ACT sC2) 47 THEN GOSUE 350 

COLOR= ACIxC3)3 FLOT ACIs€1)2ACT»C2) 

NEXT ‘ 

RE TURN 

REM NEW ASTEROID 
A(I»yC2) = INT ( RNG (C1) * C3) 
A¢I»C1) = INT ( RNID (C1) * 38 + C2) 
ACTIsC3) = INT ¢( RRND (Ci) * 44 + C1) 

IF ACI»C1) 23 ANIL ACI»sC1) 17 AND ACIsC2) © 7 THEN ACI»C2) = 7 
RETURN 

REM FROGRAM START 
CO = O8C1 = 1:02 = 2:03 = 3:3 REM CONSTANTS 

GOSUBR 800: REM INITIALISE TONE ROUTINE 

GOSURK 9303 REM INSTRUCTIONS 

SF = 33: REM SFEED OF ASTEROIDS 
AS = 25: REM NO OF ASTEROIDS 

DIM ACAS»C3)i: REM ASTEROID X+Y*rCOLOR 
SC = Si REM NO OF SFACECRAFT 
F4 = 443F6 = 453F7 = 473F0 = INT ¢( RNDI (C1) &* 36 + C2)? 

REM SET UF ASTEROID LOCATIONS 

FOR I = Ci TO AS 
ACI»C2) = INT ¢( RND (C1) * 48)3. REM RANDOM Y LOCATION 

GOSUK 360: REM NEW ASTEROID 

IF AES CACEs C1) = PO = CLS 3 ANT ACI*xC2) 30 THEN I = 1 - C13 
NEXT 

FOKE 16368,»CO? REM RESET KEYBOARD REAL 

IF Y$ "¥° THEN GET Y1$ 

Y$ = "N 

HOME 

FOKE - 16304°0: REM SWITCH TO GRAFHICS 

POKE - 1630203 REM FULL GR SCREEN 

CALL - 19983 REM CLEAR GR SCREEN 

COLOR= 11% HLIN 18719 AT CO! HLIN 21%22 AT CO: VLIN CisC3 AT 183 
COLOR= 43 VLIN CO+r47 AT CO:FU = CO? REM FUEL 

COLOR= 15: GOSURK 250: REM DRAW CRAFT 

REM MAIN LOOF 

GOSUBR 140% REM MOVE CRAFT 

GOSUB 270: REM MOVE ASTERCIDS 

COLOR= 11: PLOT 18*C3: FLOT 22sC3! REM HIT ON SFACE STATION? 
GOSUB 20: REM CHECK FOR HIT 

IF PEEK ( ~- 16384) = 155 THEN GET Y$?i HOME : TEXT : END ¢: REM ESCAFE 
GOTO 660 

REM LOCK 

GOSUEB 1340 

FRINT "YOU HAVE DOCKED SUCCESSFULLY - WELL DONE" 

FRINT ‘YOUR SUFFLIES WILL BE SENT IMMEDIATELY. ® 

FOR I = 1 TO 3000: NEXT I 

FOKE - 16368*CO: REM RESET KEYBOARD REAL 

FRINT | FRINT “ANOTHER GAME?*s: GET Y$? FRINT Y$: IF Y$ = "Y" THEN FOF 3 
END 


REM FALL INTO CRAFT DRAWING 
VLIN F4eF6 + C1 AT FO + -C1° 


FLOT ACIsCi)dsACT» 


ROUTINE 
VLIN F6sF7 AT FO + C2? 


C2) 


RETURN 3; 


CALL 880: 


VLIN C1°C3 AT 22:3 


GOTO 470 


SCRN( PO + CisFé) 
SCRN( PO + C29F7) 


REM BLOCKING ENTRANCE 


REM ERASEs FUEL sNOISE 


REM LIRAW CRAFT 


REM INITIAL SFACECRAFT LOCATION 


REM NOT ON SFACECRAFT 


REM DRAW SPACE*STATION 
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| PROGRAMS : 


800 REM SET UF TONE ROUTINE 
810 FOR I = 880 TO 900: READ [it FOKE I-lt NEXT 
@ | 220 DATA 1731481927136 1208151 2061111734 240197 20272081 2454174111093 1 76911213996 

830 RETURN 

840 REM EXFLOSION 

850 FOR I = C1 TO 20 
e 860 COLOR= INT ( RND (C1) * 13 + C2)? GOSUBR 250 

870 FOKE 878,50: REM SOUND FITCH 

880 FOKE 879,10! REM SOUNI! DURATION 

890 CALL 880! REM FROIIUCE SOUND EFFECT 

900 NEXT 
@ | 910) RETURN 

920 REM INSTRUCTIONS 

930 TEXT $ HOME 

940 S$ = OSG OOOOOIOOIOIOIOISOIOIDIOISOIDIOOI IOI OI ISO IIOIIEES 16 = 9k x 
@ | 750 vTAE «7 

960 INVERSE : FRINT S$3S1$3"**# SPCC 13)3"SFACE SLALOM"$ SFC( 13)3"*"3S1$5S$! NORMAL 


970 VTAR (20)3 FRINT SFC( 4)%"*BY GEOFF SALT ANDI STEVE WITHERS’? 
980 FOR I = 1 TO 3000: NEXT I! HOME 
& 990 FRINT "YOU ARE A LONE UBSERVER ON A REMOTE MOON'S 
1000 FRINT "AND ARE SHORT OF FOOD. THE FAILURE OF* 
1010 FRINT "YQUR RADIO MEANS THAT YOU WILL HAVE TO* 
1020 FRINT "SENI! AN SOS IN ONE OF THE REMOTE-CONTFOL* 
1030 FRINT "RECONNAISSANCE SFACECRAFT THERE TO THE® 
& 1040 PRINT *SFACE STATION. YOU MUST DOCK ACCURATELY* 
1050 PRINT "ANDI AVOID THE ASTEROIDSr OR THE CRAFT* 
1060 FRINT "WILL BE DESTROYED. * 
1070) FRINT 
& 1080 FRINT "YOU ONLY HAVE FIVE SFACECRAFT AT YOUR* 
1090 FRINT "DISFOSAL. THE RED BAR ON THE LEFT SHOWS" 
1100 FRINT "THE SFACECRAFT’S FUEL LEVEL+ IF IT RUNS* 
1110 FRINT ‘OUT OF FUEL IT WILL BE STRANDED. THE® 
eS 1120 FRINT “AREA IMMEDIATELY IN FRONT OF THE SPACE* 
1130 FRINT "STATION IS FROTECTED BY A FORCE FIELD," 
1140 FRINT "AND ASTEROIDS ARE DEFLECTED ROUND IT. 
1150 FRINT 
e 1160 FRINT “USE FADDLE (1) TO MOVE THE SFACECRAFT* 
1170 PRINT "FROM SIDE TO SIDE» AND FRESS THE PUSH-* 
1180 PRINT "BUTTON TO MOVE IT UFWARDS,* 
1190 FRINT $ PRINT “FRESS ‘ESC’ TO EXIT GAME.! 
1200 VTAB (23): FRINT *PRESS THE SPACE BARK TO START'S 
@ 1210 RETURN : REM TEST FOR KEY FRESS AT LINE S69 
1220 REM FAIL 
1230 GOSUB 1340 
1240 FRINT *YOU’VE RUN OUT OF SPACECRAFT» AND SO YOU'S 
cA) 1250 FRINT "WILL NEVER RECEIVE YOUR SUPPLIES. ! 
1260 GOTO 1310 
1270 GOSUB 1340 
1280 PRINT *SPACECRAFT HAS RUN OUT OF FUEL BLOCKING? 
® 12970 PRINT *THE SPACE STATION ENTRANCE. IT WILL NOT? @ 
1300 PRINT "BE REMOVED IN TIME TO SAVE YOU.?+ 
1310 PRINT $ PRINT “YOU ARE DOOMED!!* 
1320 GOTO 760 
& 1330 REM RETURN TO TEXT ® 
1340 FOR Z = 1 TO Si PRINT CHRS (7)%3 FOR ZZ = 1 TO 10% NEXT ZZ*Z$ TEXT % HOME $ RETURN 


— ee ew oe 


ser Ser me ee er we 


~~» 


1350 REM OOOO OOO IOI IOI IO IOI OIG II IOI I IOI Kg 

1360 REM xxx SFACE SLALOM BY GEOFF SALT AND STEVE WITHERS xxe 

1370 REM OOOO OOOO IOI IO IO IOI IOI IORI IK ® 
9 1380 REM YOU CAN ALTER THE NUMBER OF SPACECRAFT OR ASTEROIDS 

1390 REM BY CHANGING THE VARIABLES AT LINES 450 AND 470, 


Robot Nim for PET 


by Sob Chappell 


We include this program, not because _ it is fast (it isn’t), but because the graph- 
Nim is particularly original nor because _ ics are great fun. 


S REM#*BOE CHAPPELL ##*14.°S coe #s 
DIMACS: 5? 
22 PRINT" CeO RRRBRISRCEOT HIM 
PRINT" MeO ‘OU WANT INSTRUCTIONS ¢Y/No"> > INFUTAS 
IFA$="N" THEH7@ 
PRINT"CITHE GAME IS FOR 2 PLAYERS." 
PRINT" MTHE AIM IS TO LEAVE ‘YOUR OPPONENT WITH 
PRINT" MONLY’ 1 ROBOT LEFT OH THE SCREEN. 
PRINT" @YOU TAKE TURNS AND GN EACH TURN SAY 
37? PRINT" @WHICH ROW ©1-3) AND HOW MANY ROBOTS ‘OU 
339 PRINT" SWISH REMOVED FROM THAT ROW. 
PRINT" SOU MAY ONL'’ REMOVE THE LEADING ROEQT 
PRINT" @WHEN HE IS THE LAST LEFT IN THE ROW. 
PRINT" @FOR SOUND EFFECTS.CONNECT AN AMPLIFIER 
PRINT" WAND SPEAKER TO PINS MCCB2> AND N¢GROUND> 
PRINT"CF THE USER FORT USING A 15-506 RESISTER 
PRINT" MSPRESS SPACE KE’ WHEN READY" 


Now get OHIO SUPERBOARDII 
Computer with quick cdelivery. 


Ohio Scientific Superboard Il 


Whose first complete computer system on a board. Includes To Order: 

eyboard, video interface and audio cassette interface. : 

a etapa 4K RAM. Requires power supply + 5V Telephone, write or call. 
at mp. 


‘*We heartily recommend Superboard II Freight: 


for the beginner who wants.to get into 
microcomputers with a minimum cost. A 
real computer with full expandability.’’ 
POPULAR ELECTRONICS, MARCH, 1979 


**The Superboard Il is an excellent choice 
for the personal computer enthusiast on a 


-—_ budget.’ * includ; ! 
ONLY $335* Se ine. 4978 including $42.00 sales tax 


All orders $150 or more are 
shipped freight prepaid. 


We have moved. Our new address is: 
COMPUTERWARE, 


305 LATROBE STREET, : CALL 68 4200 


MELBOURNE, 3000. 


- 
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62 GETAS: IFAS=""THENG2 


7@ PRINT"D" > AR=59467 : BB=59466 :CC=53464 


78 FORK=1T03:FORJ=GTOS: ACK, J2=@:NEXT : NEXT 
84 P=1:T=1:S$="_= ":FORJ=1T06 

3@ PRINTS" TABCT> + :GOSUB160 

96 T=T+?: NEXT: GOTO12@ 


10a 
126 
136 
136 


PRINT’ Se 0 XOG0) 'e" SORO'SS" SURES = IS oe 2  St=" "RETURN 
T=1:S$=" = "‘FORJ=1T06 

PRINT " Sinleetatelelel" TABCT >; > GOSUB1IG@ 

T=T+? : NEXT 

T=1:5$=" = ": FORJ=1TO6 

PRINT " Soeteteteleledeleteteleleie" TABS T >; :GOSUB1GG 

T=T +r ‘NEXT 

P$="Q PLAYER 1.8 ": IFF=2THENP$="a PLAYER 2.8 " 

RR=G : 2$=" SAeleleeDs alee see eee" PRINTZSPS; INPUT" ROW, NUMBER" > R.N 
IFR<1ORR>30RN<1ORNSSTHEN2Z15 


> GOTOZ3@ 


PRINTZ$; :‘PRINT" ": GOTOGZES 
X=@:FORJ=1 TOS: IFACR: J2=QTHENK=X+1 

NEXT : IFX<NANDACR, @9=1 THEN2Z15 

IFN<=XTHENES@ 

IFN=1ANDACR, @)=1 THEN215 

IFN>1THEN2Z15 

RR=1 

X=@:FORK=17T03: FORJ=8T0S: IFACK, J2=GTHENS=N+1 

NEXT : NEXT 


» IFX=NTHENPRINTSE" ": GOTOZ@G 


IFP=1THENP=2 : GOTO296 
IFP=2THENF=1 
Ef="5" : IFR>1THENBS=ES+" Melelelelele" 


2 JFR=3THENBS=ES+" Selelelelelel" 


IFRR=1 THEH4o08e 

T=6: N=@: FORJ=17T05: IFACR, J2=1 THENSEG 

GOSUBS36 : GOSUBS33 : GOSUE216 : GOSUBSS2 : GOTO3SS@ 
FORKK=1TOS:PRINTESTABCTO"S EMR] @ "> FORK=1T0S@: NEXT 
PRIHTESTABCT "Se o REMBLe” " : FORK=17T036 : NEXT > NEXT > RETURN 
FOR''Y=1TO1G:M$=""— "“PRINTE#TAECT> "Maa" M$ : GOSUBLOBE 

M#=" @ "°PRINTBSTABCT? "Sa" M$ : GOSUBLO@ : NEXT : GOSUB100G@ : RETURN 


D MS=" 3" PRIHTBSTAECT >" Sl" Me : GOSUB1 G00: RETURN 


M=at1: IFX=NTHENIJ=3 

T=T+?P HEAT : GOSUBI Boe 

FOR''=17T016:PRINTES" Sala co "> GOSUBZ206 

FRINTES" Semld — ": GOSUBS200 : NEXT : GOSUBS36 : GOTO466 
PRINTES" os SUMB] “ASRR) —" RETURN 

FORL=17TON: TT=&: T=1 : S=2: GOSUB1GG6 


: FORFF=17T05: IFACR. FF >=Q@THENFF=5 : GOTO485 


TT=TT+? . 
NEXT: PRINTESTAE( TT?" a XUBR" XBRL "= GOSUB1OG0 


416 C#=E$+" qeleBR BBN -PRINTC#">"; :GOSUB216@:PRINT">"; :GOSUB216@:FORJ=1TOS 
42@ IFACR. J2=1THENFORK1=1T07 :PRINT">"3 > X=X+1 : GOSUB21@@ : NEXT : T=T+? : GOTO0430 
425. ACR. Jo=1° J=5: T=T +? 

43@ HEXT:>FRINT : GOSUBS@G6 : NEXT : GOTO?68 

768 GOSUBS3SeG 

S@2 FRINTBSTAR(T>" S3OSRl ORR) = =6(SBE! SEEGEi = EU . 

S1Q@ E¢=""“FORK=1TOX :ES=E$+" ": NEXT: PRINTCSE#: IFL*®NTHENRETURN 

S26 GOSUBEGS : GOSUB1G@@ : GOSUBRSE@ : RETURN 

665 PRINTES" Se o SOBRl ‘es ERE) — Sh = IS os RO) 2 "RETURN 

7@6 GOSUBEES: FORY'=1TO1G:PRINTES" Mela o "> GOSURZ200 

7@1 FRINTES"Mapla — ": GOSUBZ206 : NEXT : GOSUB1 G86 : GOSUBESS 

7@S X=@: FORK=1T03:FORJ=@TOS: IFACK, J>=G@THENX=%+1 > R=K 

71@ NEXT : NEXT 

re@ IFX<>1THENPRINTE$" ":GOTO28G 
Pee BE="3": IFR>1THENBS=BS+" Melee" 

P23 IFR=STHENES=E$+ " Setealeea" 

725 FOR''Y'=1T01G:PRINTBS"Meeia a ": GOSUB2266 

r2é FRINTBS" Sew — "> GOSUBZ2600 : NEXT 

rer GOSUB1GGE: GOSUBEGS : GOSUF1 Eee 


PRINT " cieteleletel" 
IFF=2THENF$="PLAYER 1 " 


| IFP=1THENF$="PLAYER 2 " 


PRINT" a"PS"IS THE WINNER!!!" 
PRINT" MMIIQANCTHER GAME ¢Y.’N)"3 > INFUTG$: IFG$="""THENTS 
FRINT" SNGOODBY'E ! Mal" : END 


} FORK=17T05@: NEST : RETURN 
9 FORK=170160 ‘NEXT: RETURN 


1666 FORK=1TOSe8: NEXT > RETURN 


4 LL=INT¢S@#RND¢ 19+285 > : GOSUBSOG6 : RETURN 


3168 POKEAR. 16:POKEEB. 20: FOKECC, 55: GOSUB29 : POKECC. @: FOKEAR. @: RETURN 
22 LL=INT<¢14@#RND¢ 194452 : GOSUBSO6@ : RETURN 
230 NN=INTC1GG4#RHDC 194160) : FORIJ=1T0e 


4 POKEAR. 16: POKEBE. 55 :POKECC. NN: GOSUB99¢6 : POKECC. 6: FOKERA. @ 


es2e NEST: RETURN 
2466 FORKK=17TO12:LL=INT¢1G@0¥#RNDC19+55) ‘ GCOSUBI@G0: NEXT : RETURN 
S668 FPOKEAA. 16: POKEBB.2@:FOKECC.LL : GOSUBS98 : POKECC. @: FOKEAR. @: RETURN 


4600 T=1:FORTY=1T018:FPRINTES" Bea oc "> GOSUBS2ZE8 
4626 PRINTERS" ablg — ": GOSUBZ2@6 : NEXT 


GOUSUE1 G68 : GOSUB386 : GOSUB1 G86 : GUSUBEG@S : GOSUBS39 : GOSUERSS@ : GOSUB1 668 


4026 GOUSUE 1 G66 : GOSUE1 GGG: GOSUBGES : PRINTBS" Sin + "> GUSUR1EGa 
4846 GOSUE1 G08: GOSUBSSE : GOSUBS16: GOSUBSS2 : GOSUB1 Gee : GOSUB1 68a 
4866 GOSUBZS@Q:FRINTBSTABCT>" . SSM). SEOR] . SO). |. Re). Se. Cw" 


$a7@ GOSUBSS9: PRINTESTABST >" Kann] )6=—s SS) SU XnG8))0=— SU ss 


4866 ACR. 89=1:°G0TOraS 


BLUDNERS 


Did any of you spot the bug in last all those disabled eyes out there, here 
month’s issue? Yes, literally. Just as isa reprint: 

well the Editor has a sense of humour . . 

Maybe it was his sense of humour! 


of Gymea wrote us, it “was obviously 
printed following the theme of the 


: PROGRAMS 


‘ 1 FORA=32512TOZ2602: READB: POKEA, Bt NEXT: POKE16435, 195: POKE164236, 00: POKE16437; 127: 
In the May issue we ran a program POKE17131. 1:POKE17132, 0: POKE16405, 0 


called “TRS- QO Disable’’. As Dr Pol ard 2 DATAZ@S, 227, 3, 254, 98, 40, 21, 254, 96, 40, 15, 254, 108, 40, 16, 254, 99, 48, 15, 254,13, 40, 2 


program — keep it invisible’. So for 25, 209.193,195, 204,6 


3, 254,1,192,175, 201,62, 1, 201,62, 13, 201,229, 33, 235,66,62, 255 
3 DATAL19, 35, 119, 225, 24, 241,197, 213, 229, 33, 50, 22,17) 232) 65, 6 4, 205, 76) 127) S51 75, 
23,17, 233, 65, 6, 4,205, 76, 127, 225, 209, 193, 24, 211,26, 198, 192,19) 35, 16. 249, 221, 225, Zz 
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GATEWAYS TO LOGIC 

For the first time, a series on the art of 
teaching others about micros — by Derrick 
Daines. 


BENCHTEST 

The HP85 is Hewlett Packard’s long awaited 
entry into the small computer market and has 
many “plus” features — and some suprising 
omissions. Has it been worth the wait? 


BEST OF BOTH WORLDS 

RM Yorston explains the practicalities of 
adding a second and different family of chip 
to your micro. 


RANDOM WRITINGS RESUMED 

Picking up the threads of a previous article, 
Michael James moves on to deal with some 
of the uses to which random numbers can be 
put. 


COMPUTER GAMES 
Part 4 of the series ... 
search! 


speeding up the 


FACE TO FACE 
The first part in a series by David Hebditch in 
which he will be looking at some revealing 
examples of design incompetence at the 
human interface. 


NEWCOMERS START HERE 
A brief guide for the microcomputing novice. 


PASCAL 

Sue Eisenbach and Chris Saddler discuss the 
application of Pascal to the storage and 
manipulation of data within programs. 


BOOKFARE 
Alvin Toffler’s The Third Wave reviewed by 
Malcolm Peltu. 


PLUS REGULAR FEATURES 

Newsprint, Yankie Doodles, Systems, Buzz- 
words, In Store, Users Group Index, Programs, 
Fax and Leisure Lines. 


ADVERTISERS INDEX 


Anderson Digital Equipment.................. 
Antelope Engineering ......................4. 
BS MICTOCOMD so os 6464 ce) bd ese 6hebeedaubens 
A ins 44 4 oo bed oa re oa ae eee see cs 


McGills Authorized Newsagency............... 
MicroPro Design ................ 0c eee eee 
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The Paper Tiger IDS440 Impact Printer 


Puts more bite into everything you do. 


Now available — the Paper Tiger Printer features a graphics option that lets you make the most of your 
Apple II or other personal computer. And, the Paper Tiger gives you 8 software-selectable character sizes, 
80 and 132 column formats, Multi-Part business forms handling, adjustable tractor feed, form control, 
reliable stepper motor paper drive, serial and parallel interfacing... plus lots more. 


Don't let our low prices fool you! 


The Paper Tiger is rugged enough to stand up to the most demanding printer/plotter requirements. 


We also stock: 
TEXAS INSTRUMENTS: High speed, high reliability, professional dot matrix, 132 character/line printers. 
N.E.C.: Highest standard in professional character printers, for word processing and similar applications. 


-—- AUSTRALIA‘S LEADERS IN SMALL COMPUTER SYSTEMS — 
write now or call us: 


Computerland 
in Melbourne 


Grd. Floor, 555 Collins Street, MELBOURNE. VIC. 3000. 
Phone (03) 62 6737 (03) 625581 Telex AA37007. 


Collins 


Spencer 


Flinders 


The Challenger 4 


Whichever way you look at it, no other computer 
offers so much for so little,and in colour! 


Minifloppy - two can be 
added. 


Full53 key, Keyboard whichin 
polled mode can recognise 
up to 8 simultaneously 
depressed keys. 


RF shielded aluminium case 
with 2 step baked on enamel 
finish. 


Inside: real time clock and 
countdown timer 24K 
memory 6502A processor 


Solid oiled walnut sides. 


Control line interfaces, Joystick sockets - add Colour adjustment. Video Display 64 x 32 Sound outputs, 
parallel lines for home realism to games. programmable tone 
security, accessory BUS, generators - 8 bit 
parallel 1/0 lines or other companding digital to 
TTL signals. analog convertors. 


RF output for control of 
AC appliances. 


Printer RS232 interface Numeric key pad slots. Cassette sockets. 
You'd have to go a long way to A real time clock and count Special offer with this 
get better value in a computer. It down timer, a 64 x 32 display in 16 advertisement only — bring it 
has execution speed that really colours, including 8K memory inthe along with you when you visit your 
separates the computers from the cassette version, 24K for the dealer and obtain $20 discount off 


toys. We think the Challenger 4 is minifloppy. A BUS structure allows your CHALLENGER 4 purchase. 
way ahead of anything you've seen __ easy plug in of extra memory or 

so far, for a wide variety of uses many more OHIO boards. The BUS 
including business, personal, means modularity. If you bought 
educational and games, as well as your vintage C2-4 in 1977 we can 

a real-time operating system, word change the boards at a much lower 
processor and a data base cost than a new computer. 
management system. For the best surprise of all ask 


The Challenger 4 has a 2MHz our opposition if they can provide 
6502 processor, and if that’s not fast all these facilities. When they can't, 


enough wecansupplytheGToption ask us! ) a 
with the 6502C processor. and 120 TOMORROWS TECHNOLOGY TODAY s 
nanosecond memory which Q 
sarcere O10 SCIENTIFIC 
instructions per second. 8 
x 
O 
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